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. TITLE TSEMT T/S EMT PROCESSOR 

. ENABL LC 

. ENABL AMA 

. DSABL GBL 

Copyrisht (C) 1976, 1977, 1978, 1979, 1980, 1981, 1982, 1983, 1984, 1985. 

S&H Computer Systems, Inc. 
Nashville, Tennessee 

this software is furnished under a license for use only 
on a single computer system and may be copied only with 
the inclusion of the above copyright notice. This 
software, or any other copies thereof, may not be provided 
or otherwise made available to any other person except 
for use on such system and to one who agrees to these 
license terms. title to and ownership of the software 
shall at all times remain with SS<H Computer Systems, Inc. 
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177776 



TSEMT 
PS 



. CSECT TSEMT 
177776 
System macros. 

. MCALL . READW 
MACROS TO ENABLE AND DISABLE INTERRUPTS 



i PROCESSOR STATUS WORD 



; ENABLE INTERRUPTS 



.MACRO DISABL i DISABLE INTERRUPTS 

BIS #340, e!#PS 
. ENDM DISABL 

. MACRO ENABL 

BIC INTPRI,e#PS 

. ENDM ENABL 

Macro to print an error message when a system crash occurs. 

Arguments; 
MBQ == Name of error message to print. 
ARO = (Optional) argument value to display with error message. 

. GLOBL DIEMSG, DIEARG, SYSHLT 
.MACRO DIE MSG, ARO 

MSG, e#DIENSG 

NB, ARG 

ARG, e#DIEARG 



MOV 
. IF 
MOV 
. ENDC 
CALL 
. ENDM 



@#SYSHLT 
DIE 



Macro definition for calling global routines residing in 
mapped system regions. 

. MACRO OCALL ENTADD 
.IF B, ENTADD 
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.ERROR iOCALL SPECIFIED WITH NO ENTRY ADDRESS 
. MEXIT 



. ENDC 
CALL 
. WORD 
. ENDM 



OVRHC 
ENTADD 



i CALL THE OVERLAY HANDLER 
; SPECIFY THE ENTRY POINT 



Global definitions 

. OLOBL FREUMR, GETUMR, lOHANQ, CLWTIM, CVTPHY 

. GLOBL TSEMT, lOSTOP, SYQIO. SYBFAD. lOSTRT 

. GLOBL UACHKB, UACHKW, GETQ, SETC, ABTIO 

. GLOBL GETSYQ, 010, PUTUCH, GETUCH, FMMSG, SPLERR 

. GLOBL EMTENT, I OF IN, QFREE, lOTIMR, SETHAN 

. GLOBL lOWAIT, RTLOCK, SWPFRC 

. GLOBL SETERR, EMTXIT, lOHALT, CANIOT 

. GLOBL PTBYT, GTBYT, PTWRD, MPPHY, ERRLOG, RTLOCK 

. GLOBL BADEMT, QCOMPL, FAKCMP, GETRTQ, EXTPl, BLKMV 

. GLOBL REBOOT, USREMT, FILSPC, SPSI ZE, SPFLDV, SPFLNM 

. GLOBL MIOMRD, MIOMWT, HANXIT, QF*IOT 

. GLOBL READ, WRITE, RELOC 

Global references 



GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 



*GEMAR, LSWll, EMTPLS, VPLAS 

TSINIT, CUREMT, HANIOC, DOEMT, C. USED, SSEMT 

VSWPFL, MAPPAR, BASMAP, LOMAP, *MLOCK, UNLOCK 

S*WFM, LSW, SCPGET, SP*JOB, SP*CMD, SAiSLOK 

«DEAD, EMTLEV, CQ$CP, CP*STD, PRIVCO 

CQ*LNK, CQ$RTN, CQ*PA5, DOSCHD, LCMPL 

CQ*JOB, CQ$RO, CQ*R1, SYSXIT, *NDMEM 

INTPRI, LIOCNT, QHIPRI, NMFREQ, LPRI 

VPAR6, NUMDEV, CSHALC, CP*RT, QF«MIO, QF*CIO 

MEMSWP. PO$LOK, CKUSP2, E375MX, EMT376, RTllEX, ODTBAS 

SYTIMH, SYTIML, SYSDAT, CQ*FLG, Q. FLAG 

QF*SCR, CQ$HOT, CQ*LOT, CQ*RO, CQ*R1, IT*JOB 

KPAR5, KPAR6, DS*ABT, MRKTHD 

FRKGET, FORKQ, FQ*PRI, FQ*RTN, FQ*R1, FQ*R5, FQ*R3 

EMTBLK, lOQSIZ, CSHIO, DX*NCA, Q. ICSW, Q. UCSW 

CFLAG, ERRLOC, lOCMPL, LPRI, IT*SEQ 

LSW4, *INKMN, VALADW, VALADB, PRIVCO 

CS*ERR, CS*EOF, CS*OPN 

SERFLG 

lOABFL, LSW3 

RPDR 

LSW6, VPRIHI, S*RT, FP*MOV, FP*IOF, FP*IOS, FP*IOA 

EMTMAP, EHTSP, CHNNUM, LJSW, EM*SOF, vJSTKND 

CXTEND. LSW4, HANS I Z 

MI*UBP, MIfSBP, MI*UBO, MI*CWC 

Q. DEVX 

INTERR, *INKMN 

CHNADR, EMT ASP 

CORUSR, UPMODE 

BOTUNI,BOTCSR 

UBUSMP, DX$DMA, DVFLAG, UMRBAS, UM*IOQ 

UM*WDS, UM*$SZ, UMREND, UMRWHD, Q. UMRX 

0. UMPB, Q. UMVB, UM*UMR, UMRADR, UM*NMR 



EMTRAD 
LITIME, S*HICP 
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GLOBL Q. UMPP 

GLOBL ABORT, EMTADR 

GLOBL CXTBAS, DX*MAP, MIOCHK 

GLOBL URO, EMTPS, QSRCH, CHKABT, QNSPND 

GLOBL S*NEDQ, DVSTAT, HANENT, FREIOQ, EMTCXT, EMTCXW 

GLOBL JSWLOC, ENSYS, HANPAR 

GLOBL EMTCXN, UHIMEM 

GLOBL EMTERR, LSTATE, S*IOWT>UMODE 

GLOBL C.CSW, Q. WCNT 

GLOBL C. NUMQ, Q. JOB, Q. LINK, Q. BLKN, Q. FUNC 

GLOBL Q. COMP> Q. CHAN, C. DEVQ, Q. UNIT 

GLOBL Q. BUFF, Q. PAR, Q. PAS, C. SBLK, C. LENG, Q. CSW 

GLOBL LBASE, UIOCNT, Q. PA6 

GLOBL LSTPL 

GLOBL ENQTL, FRKPR3 

GLOBL S* I OFN, CQ*PR I , I T*LNK 

GLOBL IT*RTN 

GLOBL CQ*RNS 

GLOBL LEMTPC 

GLOBL LMXNUM, RSR, TBR 

GLOBL MXDTR, ZCLR, HXCSR, EM*NQE 

GLOBL LCXPAR, CUPARO 

GLOBL READ, WRITE 

GLOBL TTYIN, TTYOUT 

GLOBL PRINT 

GLOBL OVRHC, VPAR5, EXCJOB, SROMMR, SR3MI1R, VCSHNB 
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012 
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Ascii characters 



CR 
LP 
BELl. 



15 
12 
07 



; Carriage return 
; Line feed 
; Bell 



Shared data areas for mapped system regions. 



USREMT: 
FILSPC: 

QWTCNT: 
CLWTIM: 



BLKW 
BLKW 
WORD 
WORD 
WORD 



6 
4 


0> 60. 



J Argument arsa for internal USR emts 

; Holds dev: f ile. extCsize] spec for current emt 

; Lsize3 for file specificed above 

; Non-zero ==> Some job u>aiting for Q element 

;Wait time for CLWAIT routine 



SPFLDV: 


. BLKW 


1 


SPFLNM: 


. BLKW 


4 


SPSIZE: 


. WORD 
. EVEN 






Data areas used for special device (mag tape) directory operations. 
Note: SPFLDV> SPFLNM, and SPSIZE must be allocated contiguously for 
magtape directory operations to work correctly. 

;File spec device name 

;File spec involved in dir operation 

jFile size returned by handler 

Text messages. 

. NLIST BEX 
; Note: FMMSG must begin on a word boundary so that XXXXXX is 
i word aligned (MOV instructions replace the form name). 

. EVEN 
FNMSG: . ASCIZ <CR><LF:;<LF><BELL>/ Mount 'XXXXXX' form on YYN/<CR><LF> 
SPLERR: .ASCIZ /TSX-W-Error on write to spool file/ 

. EVEN 

.LIST BEX 
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001 
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000161 


000 
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10 
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000 


11 
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000 


12 


000165 


000 


13 
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14 


000167 


003 


15 


000170 


000 
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20 


000171 


000 


21 


000172 


000 
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000173 


001 


23 


000174 


001 


24 


000175 


375 


25 


000176 


375 


26 


000177 


000 


27 


000200 


000 


28 


000201 


000 


29 


000202 


000 


30 


000203 


000 


31 


000204 


001 
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000205 
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33 


000206 


000 


34 


000207 


000 


35 


000210 


000 


36 







TASLE FOR VI TYPE EMTS WHICH SHOWS HOW MANY 
ARGUMENTS ARE ON THE STACK. 



VISTK: 


. BYTE 







. BYTE 







. BYTE 


1 




. BYTE 







. BYTE 







. BYTE 







- BYTE 







. BYTE 







. BYTE 


3 




. BYTE 


3 




. BYTE 






000 


DELETE 


020 


LOOKUP 


040 


ENTER 


\ja\J 
100 


RENAME 


120 


SAVE STATUS 


140 


REOPEN 


160 


CLOSE 


200 


READ 


220 


WRITE 


240 


WAIT 



Table for group 16 EMT ' 5 showing how many arguments are on the stack. 



G16STK: 



BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
EVEN 





1 
1 



-3 
-3 








1 
O 






340 


TTYIN 


341 


TTYOUT 


342 


DSTATUS 


343 


FETCH/RELEASE 


344 


CSIGEN 


345 


CSISPC 


346 


LOCK 


347 


UNLOCK 


350 


EXIT 


351 


PRINT 


352 


SRESET 


353 


QSET 


354 


SETTOP 


355 


RCTRLO 


356 


(undefined ) 


357 


HRESET 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 

14 000212 

15 000216 

16 000224 

17 000230 
IS 000236 

19 000242 

20 000246 

21 000254 

22 000256 

23 000260 

24 000262 

25 000264 
26 

27 

29 000266 

30 000272 

31 000274 

32 000300 

33 000304 

34 000306 

35 000310 

36 000314 

37 000322 
38 

39 
40 

41 000326 

42 000334 

43 000340 

44 000344 

45 000350 

46 000352 

47 000356 

48 000360 

49 000364 

50 000370 

51 000376 

52 000400 

53 000404 

54 000410 

55 000414 

56 000420 

57 000422 



SDTTL EMT entry and initial processing 



013746 
016637 
013746 
016637 
013746 
010637 
062737 
010546 
010446 
010346 
010246 
010146 



005237 
001406 
012705 
012704 
012546 
077402 
010637 
013737 
010037 



042737 
105037 
105037 
013705 
006545 
010537 
012604 
010437 
113701 
032737 
001406 
010561 
106537 
012661 
020427 
001002 
000137 



EMTENT is entered directly from an EMT trap. 

On entry, the processor will be in kernel mode and the stack pointer 

will be pointing to an internal job stack. 

Our initial EMT processing consists of the following steps: 

Save registers. 

Save current EMT processing context. 

Determine if this is a version 1 or version 2 format EMT. 

Move arguments for EMT from either users argument area <v2) or 

stack <vl) to internal argument block (EMTBLK). 

Jump off to appropriate EMT processing routine. 



1. 
2. 
3. 
4. 

5. 



ooooooe 

000004 

OOOOOOG 

000004 

OOOOOOQ 

0000000 

000012 



EM 



OOOOOOG 



OOOOOOG 



OOOOOOG 



TENT: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
ADD 
MOV 
MOV 
MOV 
MOV 
MOV 



EMTPS, -<SP) 
4(SP),EMTPS 
EMTADR> -<SP) 
4(SP),EMTADR 
EMT ASP, -<SP) 
SP, EMT ASP 
#12, EMT ASP 
R5, -<SP) 
R4, -<SP) 
R3, -<SP) 
R2, -(SP) 
R 1 , - < SP ) 



SAVE PREVIOUS EMT PROCESSOR STATUS 

SAVE PS ON ENTRY FROM TRAP 

SAVE PREVIOUS EMT PC 

SAVE PC OF TRAP 

SAVE OLD ARGUMENT STACK POINTER 

SET EMTASP TO POINT TO STACK TOP BEFORE EMT 

WAS DONE 



If an EMT is already being performed, save EMT processing context. 



OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 



OOOOOOG OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 
104341 

OOOOOOG 



1$: 
2$: 



INC EMTLEV 

BEQ 2* 

MOV #EMTCXT, R5 

MOV #EMTCXW, R4 

MOV <R5)+, -(SP) 

SOB R4, 1* 

MOV SP, EMTSP 

MOV @#KPAR5, EMTMAP 

MOV RO, URO 



INCREMENT EMT PROCESSING LEVEL 

BR IF NO EMT IN PROGRESS 

POINT TO START OF EMT CONTEXT AREA 

GET # WORDS TO SAVE 

SAVE EMT CONTEXT ON STACK 

; SAVE FRAME POINTER 

; Save PAR 5 mapping value on EMT entry 

iURO HOLDS USER'S RO VALUE 



Initialize EMT context status. 



5$: 



BIC 


#CFLAG, EMTPS 


CLRB 


EMTERR 


CLRB 


INTERR 


MOV 


EMT ADR, R5 


MFPI 


-(R5) 


MOV 


R5, EMTADR 


MOV 


(SP)+, R4 


MOV 


R4, CUREMT 


MOVE 


C0RUSR,R1 


BIT 


#UMODE, EMTPS 


BEQ 


5* 


MOV 


R5,LEMTPC<RJ ) 


MFPD 


@#JSWLDC 


MOV 


<SP)+, LJSW(R1 ) 


CMP 


R4, #104341 


BNE 


6* 


JMP 


TTYOUT 



CLEAR C-FLAO IN PS 

NO I/O ERROR CODE YET 

NO INTERNAL ERROR CODE 

GET ADDRESS SAVED BY EMT TRAP 

GET EMT INSTRUCTION ONTO STACK 

SAVE ADDRESS OF EMT INSTRUCTION 

GET THE EMT INSTRUCTION 

SAVE THE EMT INSTRUCTION 

GET JOB INDEX # 

WAS EMT DONE IN USER MODE? 

BR IF NOT 

SAVE ADDRESS OF LAST USER-MODE EMT 

GET USER'S JSW VALUE 

SAVE IN INTERNAL TABLE 

IS THIS A TTYOUT EMT? 

BR IF NOT 

HANDLE TTYOUT SPECIALLY FOR SPEED 
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58 


000426 


020427 


104351 


59 


000432 


001002 




60 


000434 


000137 


0000000 


61 


000440 


020427 


104340 


62 


000444 


001002 




63 


000446 


000137 


OOOOOOG 


64 


000452 


032737 


0000000 OOOOOOG 


65 


000460 


001407 




66 


000462 


004737 


ooooooe 


67 


000466 


103004 




68 


000470 


013704 


OOOOOOG 


69 


000474 


000137 


OOOOOOG 


70 








71 








72 








73 


000500 


012701 


OOOOOOG 


74 


000504 


120427 


000375 


75 


000510 


001505 




76 


000512 


120427 


000374 


77 


000516 


103070 





6*: 



7$: 



8$: 



3$: 



CMP 


R4, #104351 


BNE 


7* 


JMP 


PRINT 


CMP 


R4, #104340 


BNE 


8$ 


JMP 


TTVIN 


BIT 


#UMODE, EMTPS 


BEQ 


3* 


CALL 


CKUSP2 


BCC 


3* 


MOV 


EMTADR, R4 


JMP 


ABORT 


Determine 


if this is a ve 


MOV 


#EMTBLK,R1 


CMPB 


R4, #375 


BEQ 


EMT375 


CMPB 


R4, #374 


BHIS 


V2EMT 



IS THIS A . PRINT EMT? 

BR IF NOT 

HANDLE .PRINT SPECIALLY FOR SPEED 

IS THIS A . TTYIN EMT? 

BR IF NOT 

GO PROCESS . TTYIN 

WAS EMT DONE IN USER MODE? 

BR IF NOT 

CHECK VALIDITY OF USER'S SP 

BR IF USER'S SP IS OK 

SET ADDRESS FOR ABORT MESSAGE 

ABORT THE JOB 



i GET ADDRESS OF AREA FOR ARGUMENT LIST 

; Version 2 EMT? 

; Br if yes 

; VERSION 1 OR VERSION 2 FORMAT EMT? 

;BR IF VERSION 2 EMT 



< 
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1 
2 
3 
4 
5 
6 



Do setup for a version 1 format EMT. 

Convert emt to version k' format and move arguments to EMTBLK. 



000520 



7 000526 
S 000530 
9 000534 

10 000540 

11 000542 
12 

13 
14 

15 000544 

16 000546 

17 000550 

18 000554 

19 000556 

20 000562 

21 000566 
22 

23 

24 000570 

25 000572 

26 000576 

27 000602 

28 000604 

29 000606 

30 000610 

31 000614 

32 000616 

33 000624 
34 

35 
36 
37 

38 000626 

39 000632 

40 000634 

41 000636 

42 000640 

43 000642 

44 000644 

45 000646 

46 000650 

47 000652 

48 000656 

49 000662 
50 

51 000664 

52 000666 

53 000670 

54 000672 

55 000674 

56 000676 



010405 
042704 
110421 
042705 
072527 
110521 
010021 



106506 
012603 
120527 
001015 
1 1 3702 
1 1 6202 
002012 



005402 
106563 
032726 
001405 
005202 
000403 
116502 
001514 
032737 
001017 



013703 
010300 
012321 
077202 
014043 
020006 
10137!;? 
160003 
060306 
060337 
060337 
000471 

106523 
012621 
077203 
010346 
106606 
000463 



VI EMT: 



177760 

177417 
177774 



MOV 


R4, R5 


BIG 


#■•■^017, R4 


MOVB 


R4, <R1)+ 


BIC 


#-C360, R5 


ASH 


#-4, R5 


MOVB 


R5, (Rl) + 


MOV 


RO, (Rl) + 



GET EMT INSTRUCTION 

ISOLATE CHANNEL NUMBER 

STORE INTO EMTBLK 

LEAVE ONLY FUNCTION CODE 

RIGHT JUSTIFY 

STORE FUNCTION CODE INTO EMTBLK 

USERS RO VALUE GOES AS ARGUMENT 1 



Move any arguments from user's stack to EMTBLK. 



000016 

OOOOOOG 
000171 ' 



000004 
000001 



000156' 
OOOOOOG 



2* 

1* 

OOOOOOG 3* 



OOOOOOG 



OOOOOOG 
OOOOOOG 



MFPD 
MOV 
CMPB 
BNE 
MOVB 
MOVB 
BOE 
. CSIGEN & . 
Determine h 
NEG 
MFPD 
BIT 
BltQ 
INC 
BR 

MOVB 
BEQ 
BIT 
BNE 
EMT was exe 
This means 
on entry to 
information 
MOV 
MOV 
MOV 
SOB 
MOV 
CMP 
BHI 
SUB 
ADD 
ADD 
ADD 
BR 
i EMI was donf 
4$: MFPD 
MOV 
SOB 
MOV 
NTPD 
BR 



6*: 



5*: 



SP 

(SP)+, R3 

R5, #16 

2* 

EMTBLK, R2 

G16STK<R2), R2 

1* 
CSISPC have a var 
ouj many we have t 

R2 

4(R3) 

#1, (SP) + 

3* 

R2 

3* 

V1STK(R5), R2 

ARGFIN 

#UMODE, EMTPS 

4* 
cuted in kernel m 
the arguments are 
EMT processing, 
on the stack. 

EMTASP, R3 

R3, RO 

(R3)+, (Rl> + 

-<R0), -(R3) 

RO, SP 

5* 

RO, R3 

R3, SP 

R3, EMTSP 

R3, EMTASP 

ARGFIN 

in user mode. 

<R3) + 

<SP)+, <R1)+ 

R2, 4« 

R3, -<SP) 

SP 

ARGFIN 



#) 



; GET USER 'S SP 

i INTO R3 

,• IS THIS A GROUP 16 EMT? 

; BR IF NOT 

;GET SUB-FUNCTION CODE <CHANNEL 

; GET # ARGUMENTS ON STACK 

;BR IF NOT . CSIx.x.x 
iable number of arguments <3 or 4). 
his call. 

; GET 3 AS # ARGS 

i GET 3RD ARGUMENT ON STACK 

; IS THERE A 4TH ARGUMENT? 

i BR IF NOT 

i SET 4 AS # ARGUMENTS 

GET # ARGUMENTS ON STACK 
BR IF NO ARGUMENTS ON STACK 
WAS EMT DONE IN USER OR KERNEL MODE? 
BR IF IN USER MODE 
ode. 
under all the saved information we pushed 
Pop the arguments and move down the saved 

iGET POINTER TO ARGUMENTS ON STACK 



MOVE AND ARGUMENT FROM STACK TO EMTBLK 

MOVE ALL ARGUMENTS FOR EMT 

MOVE DOWN OTHER INFO ON STACK OVER ARG AREA 



GET # BYTES STACK WAS REDUCED 
CORRECT SP 

CORRECT FRAME POINTER 
CORRECT ARGUMENT POINTER 



This means arguments are on user-mode stack. 
iMOVE ARGUMENT FROM USER'S STACK TO OUR STACK 
iMOVE HIS ARGUMENT TO OUR ARGUMENT AREA 
i GET ALL OF HIS ARGUMENTS 
; NOW RESET HIS STACK POINTER 
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EMT entry and initial processing 



062700 OOOOOOC 



1*: 



5$: 



1 

2 

3 

4 000700 001004 

5 

6 

7 

8 000702 

9 000706 010021 
10 000710 000456 
11 
12 
13 

14 000712 120427 000376 

15 000716 103402 

16 000720 000137 OOOOOOG 
17 
IS 
19 

20 000724 032700 000001 

21 000730 001003 

22 000732 020037 OOOOOOG 

23 000736 101402 

24 000740 004737 005520' 
25 
26 
27 

28 000744 113702 OOOOOOG 

29 000750 052762 OOOOOOG OOOOOOG 

30 000756 010003 

31 000760 106523 

32 000762 012605 
33 
34 
35 

36 000764 020527 040000 

37 000770 103402 

38 000772 062705 OOOOOOC 

39 000776 010521 
40 
41 
42 

43 001000 012700 000006 

44 001004 106523 

45 001006 012621 

46 001010 077003 

47 001012 042762 OOOOOOG OOOOOOG 

48 001020 010201 
49 
50 
51 

52 001022 123727 00000 IG 000043G 

53 001030 001002 

54 001032 000137 OOOOOOG 

55 001036 123727 OOOOOIG 000036 4* 

56 001044 001402 

57 ; 



Do setup for a version 2 format EMT. 
V2EMT: BNE 1* ; BR IF NOT EMT 374 

This is an EMT 374. <R0 Contains function-code, channel). 



ADD #E375MX*400, RO 
MOV R0> (Rl)+ 
BR ARGFIN 



BIAS FUNCTION CODE 

RO HAS FUNCTION CODE AND CHANNEL 

THERE ARE NO OTHER ARGS FOR THIS TYPE EMT 



This is an EMT 375. <R0 points to user's argument list). 

MAKE SURE THIS REALLY IS AN EMT 375 
BR IF IT IS 375 
BR IF 376 OR 377 



CMPB 


R4, #376 


BLO 


EMT375 


JMP 


EMT376 



Validate the address of the argument block 



EMT375: BIT 
BNE 
CMP 
BLOS 

1*: CALL 



#1, RO 

1* 

RO, UHIMEM 

5* 

VALADW 



> Is address evenT' 

i Br if not 

i Is address in normal job area7 

i Br if yes 

; MAKE SURE EMT ARG BLOCK ADDRESS IS VALID 



Get 1st word from EMT argument block 



MOVB 

BIS 
MOV 
MFPD 
MOV 



CORUSR, R2 ;Get job index number 

#*GEMAR, LSWll (R2); Set flag saying to return O on MFPD trap 
RO, R3 ; GET ADDRESS OF USER'S ARGUMENT BLOCK 

(R3)+ ;GET USER'S FUNCTION CODE AND CHANNEL 

(SP)+, R5 



*: 



Determine if this is an RT--11 or TSX system function 

CMP R5> #100*400 i TSX EMT? 

BLO 2* i BR IF NOT 

ADD #«RT11EX-100.>*400>, R5 iBIAS FUNCTION CODE 

MOV R5, (Rl)+ ; STORE FUNCTION CODE & CHANNEL # IN EMTBLK 



Move arguments from user's argument area to EMTBLK. 



3^: 



Get # ujords to move 

GET AN ARG WORD FROM USER'S AREA 

MOVE INTO EMTBLK 



MOV #6, RO 

MFPD <R3)+ 

MOV (SP)+, (Rl )+ 

SOB RO, 3* 

BIC #«GEMAR, LSW1KR2); Clear flag that says we are getting args 

MOV R2, Rl ; Carry job index in Rl 

Do fast check for shared run-time mapping 



CMPB 

BNE 

JMP 

CMPB 

BEQ 



EMTBLK+1, #<143<"<RT11EX-I00»i Shared run-time mapping? 



4* 

SSEMT 

EMTBLK+1,#36 

DOPLAS 



Br if not 

Go do shared run-time mapping 

PLAS EMT? 

Br if PLAS EMT 



TSEMT 
EMT entr 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
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y and initial proceBsing 



001046 000137 OOOOOOG 



001052 005737 0000000 

001056 001402 

001060 000137 0000000 

001064 012700 000007 

001070 005037 0000000 

001074 000137 004036' 



001100 
001104 



012700 
000137 



177767 
004036 ' 



i Jump into TSfc.M2 overlay to complete EMT processing 

ARGFIN: JMP DOEMT i Enter TSEM2 to complete processing 



PLAS EM! 

DOPLAS: TST 

BEQ 
JMP 
9* : MOV 
CLR 
JMP 



VPLAS 

9* 

EMTPLS 

#7, RO 

URO 

SETERR 



Invalid EMT 

BADEMT: MOV 
JMP 



#-11. RO 
SETERR 



;Was PLAS genned into system? 

> Br if not 

i Enter TSPLAS overlay 

; Return error code O 

i Return in RO 



; ERROR CODE # 



TSEMT 
EMTXIT 



T/S EHT 
— Exit 
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from EM) processing 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 



29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



SBTTL EMTXIT — Exit from EMT processing 



EMTXIT is jumped to at the end of processing of an EMT. 
Control is returned to the user. 

Check to make sure the job context block stack did not overflow. 



001110 
001116 
001120 



023727 0000000 123456 EMTXIT: CMP 
001410 BEG 

DIE 



JSTKND, #123456 

6* 

#EM*SOF, #3 



CHECK FOR FIXED VALUE AT END OF STACK 

BR IF OK 

STACK OVERFLOW — HALT SYSTEM 



If the EMT was executed in user mode* make sure 
previous-mode = user in the current PSW. 



001140 
001146 
001150 



001156 
001162 
001164 



001172 
001176 
001202 
001204 
001212 



032737 OOOOOOG OOOOOOG 6$: 

001403 

052737 OOOOOOG 177776 



BIT #UMODE, EMTPS 

BEQ 7* 

BIS #UPMODE, @#PS 



Was EMT executed in user mode7' 

Br if not 

Make sure previous—mode = user in PSW 



See if an internal error code was specified. 



105737 OOOOOOG 

001403 

113737 OOOOOOG OOOOOOG 



7*: TSTB INTERR 
BEQ 1* 
MOVE INTERR, EMTERR 



ANY INTERNAL ERROR CODE? 

BR IF NOT 

SET AS REAL ERROR CODE 



Return I/O error code to user. 



106537 OOOOOOG 1$: 

113716 OOOOOOG 

001403 

052737 OOOOOOG OOOOOOG 

106637 OOOOOOG 2*: 



MFPD 


@#ERRLOC 


MOVB 


EMTERR, <SP) 


BEQ 


2* 


BIS 


#CFLAG, EMTPS 


MTPD 


@#ERRLOC 



; GET CONTENTS OF ERROR CELL 

; PUT EMT ERROR CODE IN LOW-ORDER BYTE 

i BR IF THERE WAS NO ERROR 

; SET C-FLAG IN PS 

; RESET ERROR CELL 



001216 013700 OOOOOOG 



013737 OOOOOOG OOOOOOG 



Return value to user in RO. 

MOV URO. RO ; GET VALUE TO BE RETURNED IN RO 

Restore mapping for kernel PAR 5 region 

MOV EMTMAP, S#KPAR5 ; Restore mapping for kernel PAR 5 region 
Restore EMT context. 



001230 
001234 
001240 
001242 
001246 
001252 
001254 



001256 
001260 
001262 
001264 



001 



266 



013706 OOOOOOG 

005337 OOOOOOG 

002406 

012705 OOOOOOG 

012704 OOOOOOG 

012645 

077402 



012601 
012602 
012603 
012604 
012605 



4$: 



MOV EMTSP, SP 

DEC EMTLEV 

BLT 3* 

MOV #EMTCXN, R5 

MOV #EMTCXW, R4 

MOV <SP)+, -<R5) 

SOB R4, 4* 



RESTORE FRAME POINTER 

DID WE PUSH CONTEXT INFORMATION? 

BR IF NOT 

POINT TO END OF CONTEXT AREA 

GET # WORDS TO RESTORE 

RESTORE EMT CONTEXT 



Restore registers 



3*: 



MOV 
MOV 
MOV 
MOV 
MOV 



<SP)+, Rl 
< SP ) +, R2 
(SP)+, R3 
<SP)+>R4 
(SP)+, R5 



TSEMT 
EMTXIT - 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
SO 
81 
82 
o3 
04 
85 
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001270 012637 0000000 



001274 013766 0000000 000006 



001302 012637 0000000 
001306 012637 0000000 



001312 005737 0000000 

001316 001407 

001320 013716 0000000 

001324 012766 0000000 000002 

001332 005037 0000000 



001336 000137 0000000 



ReBtore stack argument pointer 



i POINTS TO WHERE ARGUMENTS WERE ON STACK 



PUT PS ON STACK 



MOV (SP)+,EMTASP 
Set PS for return 

MOV EMTPS, 6<SP) 

Restore EMTPS 8< EMT ADR. 

MOV (SP)+, EMTADR 
MOV (SP)+, EMTPB 

At this point the PS & PC pushed as a result of the EMT are the only 

things on the stack. 

See if a . SPCPS EMT was done that wants to alter return from the EMT. 

TST EMTRAD J DO WE WANT TO ALTER EMT EXIT ADDRESS? 

»EQ 5« ; I3R IF NOT 

Force control away from completion routine. 

SET NEW PC FOR EXIT 
SET NEW PS FOR EXIT 
SAY WE HAVE FINISHED THE REQUEST 



MOV 


EMTRAD, (SP) 


MOV 


#UPMODE, 2<SP) 


CLR 


EMTRAD 



5* 



Exit throuth INTEN code. 
JMP SYSXIT 



;EXIT FROM SYSTEM STATE 



I 

i 
i 
i 
i 
i 
i 
I 
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REBOOT — Kmon EHT to reboot 
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1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

1.1 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



. SBTTL REBOOT — Kmon EMT to reboot the system 



001342 
001350 
001356 



001364 
001370 
001376 
001400 
001404 
001406 
001412 
001416 
001420 
001424 
001432 
001436 



001440 
001446 
001452 



001456 
001464 
001472 
001474 
001502 
001510 
001546 
001554 
001560 



001564 
001570 
001574 
001576 
001600 



001602 
001606 



012777 
013737 



012705 
032765 
001015 
016504 
001005 
005075 
005075 
000405 
105074 
052774 
162705 
003354 



1 1 3737 
005037 
013705 



013737 
013737 
000005 
013737 
013737 



013700 
013701 



Reboot the system. 

Word 2 of EMT arg block contains address of start of bootstrap code. 



000002 000100' 
000100 000004 



OOOOOOG 
0000000 OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 
000002 



REBOOT: DISABL 
MOV 
MOV 



#2, eioo 

@#iOO, @#4 



Disable time-sharing lines 



7$: 



4«: 

6$: 



MOV 


#LSTPL, R5 


BIT 


#*DEAD, LSW3<R5) 


BNE 


6* 


MOV 


LMXNUM(R5),R4 


BNE 


4* 


CLR 


@RSR(R5) 


CLR 


@TSR(R5) 


BR 


6* 


CLRB 


@MXDTR(R4) 


BIS 


#2CLR, @MXCSR(R4) 


SUB 


#2, R5 


BGT 


7* 



** DISABLE ** 

DISABLE CLOCK PROCESSING 

Ignore non-existent traps 



GET # OF LAST PRIMARY LINE 

IS THIS LINE INSTALLED? 

BR IF NOT INSTALLED - CONTINUE TO NEXT LINE 

IS THIS A DL-11 OR DZ-ll LINE? 

BR IF DZ-11 LINE 

STOP RECEIVER 

STOP TRANSMITTER 

CONTINUE TO NEXT LINE 

CLEAR DZ-11 DATA TERMINAL READY 

CLEAR DZ-11 CONTROL STATUS REGISTER 

GO STOP NEXT LINE 



Disable the generalized cache and the scheduler. 



OOOOOOG OOOOOOG 

OOOOOOG 

000004G 



OOOOOOG 000014' 
OOOOOOG 000016' 

000014' OOOOOOG 
000016' OOOOOOG 



OOOOOOG 
OOOOOOG 



MOVB CORUSR> EXC JOB 
CLR @#VCSHNB 
MOV EMTBLK+4, R5 



; Say ue are the exclusive job 

; Disable caching 

; GET THE ADDRESS OF THE BOOTSTRAP CODE 



Reset system and issue read to set unit number in controller. 



MOV 

MOV 

RESET 

MOV 

MOV 



@#SROMMR, FILSPC i Save MMU status 
@#SR3MMR>FILSPC+2; Save MMU 3 status 

i Issue bus reset 
FILSPC, ©#3R0MMR ; Restore MMU O status 
FILSPC+2, @#SR3MMR; Restore MMU 3 status 



OOOOOOG 
002400 



012702 
012703 
106525 
012622 
077303 



005037 OOOOOOG 
005037 OOOOOOG 



8$: 



. READW #USREMT. #1,#SPFLNM, #1, #0i Read from boot device 
DISABL iDisable interrupts 

MOV BOTUNI^RO i Get boot device unit number 

MOV BDTCSR^Rl i Get boot CSR address 

Move the bootstrap code from the user's region into kernal mapping. 



COPY BOOTSTRAP INTO KERNEL MAPPING 

MOVE 5 BLOCKS OF CODE 

GET THE NEXT WORD 

STORE IT OVER TSINIT 

CONTINUE UNTIL PRIMARY S< SECONDARY CODE MOVED 



MOV 


#TSINIT, R2 


MOV 


#256. *5>R3 


MFPD 


<R5) + 


MOV 


(SP)+, (R2) + 


SOB 


R3. S* 



Clear memory management registers. 



CLR 
CLR 



SROMMR 
SR3MMR 



; Clear MMU status 
i Clear MMU 1 status 



Set up date and time words. 



TSEMT T 
REBOOT — 



'S EMT PROCESSOR 
Kmon EMT to reboot 
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58 

59 001612 

60 001620 

61 001626 
62 

63 
64 

65 001634 

66 001640 

67 001642 

68 001646 

69 001650 
70 

71 
72 

73 001652 

74 001656 

75 001662 

76 001666 
17 

70 
79 
SO 001672 



013737 
013737 
013737 



012702 
005005 
012703 
012225 
077302 



005037 
010037 
012706 
012703 



000113 



OOOOOOG 005004 
OOOOOOG 005000 
OOOOOOe 005002 



OOOOOOG 
002400 



MOV 
MOV 
MOV 



SYSDAT, @#5004 
SYTIMH, e#5000 
SYTIML, e#5002 



DATE 

TIME - HIGH ORDER 

TIME - LOW ORDER 



Copy bootstrap to louj memory (0 ~ 4777). 



10*; 



MOV #TSINIT, R2 

CLR R5 

MOV #256. *5, R3 

MOV <R2)+, (R5)+ 

SOB R3, 10$ 



Set up for bootstrap. 



000000 
004722 
010000 
001000 



CLR 
MOV 
MOV 
MOV 



e#o 

RO, ©#4722 
#10000, SP 
#1000, R3 



Jump into bootstrap 
JMP @R3 



; Point to copy of bootstrap 

; Move to physical location lero 

; Move 5 blocks of code 

; Move to low memory 

; Continue until all is moved 



SAY DATE & TIME ARE STORED IN MEMORY 
SET THE CORRECT BOOTSTRAP UNIT NUMBER 
SET STACK POINTER FOR BOOTSTRAP 
Point to bootstrap code 



; ENTER BOOTSTRAP CODE 



TSEMT T/3 EMT PROCESSOR MACRO V05. 04 
RTLOCK — EMT to lock a job in ions memory 



Friday 18-Dec-S7 07: 56 Page 9 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



001674 
001702 
001704 
001706 
001712 
001716 



001726 
001732 
001736 
001742 
001744 
001746 
001750 
001752 
001760 



001762 
001770 
001774 
002002 
002006 
002012 
002016 
002020 



002024 
002030 
002034 



002042 
002046 
002052 
002056 
002064 
002066 



032737 
001003 
005000 
000137 
105737 
001465 



0000000 OOOOOOG 



004036 ' 
OOOOOOG 



RTLOCK; 


BIT 


#PO$LO 




BNE 


3* 




CLR 


RO 




JhP 


SETERR 


3«: 


TSTB 


VSWPFL 




BEQ 


8* 



001720 013737 OOOOOOG OOOOOOG 



016102 
063702 
020237 
101453 
114200 
001405 
002772 
032760 
00 1 366 



052761 
005237 
052761 
013702 
163702 
016100 
160200 
004737 



004737 
110165 
112765 



012700 
004737 
004737 
032761 
00 1 766 
000137 



OOOOOOG 
OOOOOOG 
OOOOOOG 



1*: 



OOOOOOG OOOOOOG 



. SBTTL RTLOCK — HMT to lock a job in low memory 

The RTLOCK emt is used to lock a job in memory. The job is moved 
to the louj end of user memory space before being locked. 

#PO$LOK, PRIVCO ;Are tue allowed to lock job in memory? 

; Br if yes 
i Return error code 

; Is this a no swap system? 

; Br if yes - don't change memory allocation 

Map PAR 5 to the memory management table 

MOV MAPPAR, S#KPAR5 i Map PAR 5 to memory management table 

See if job is at base of memory now 

Get base page # for job 

Get address of base page entry for job 

Are we at base of memory 

Br if yes — don't need to reposition job 

Get # of job using this page 

Br if page is free 

Br if page is not available to jobs 

Is this job locked in memory? 

Br if yes 

Job is not at base of memory. 

Use the job swapper to reposition it. 



MOV 


LBASE<R1). R2 


ADD 


BASMAP, R2 


CMP 


R2, LOMAP 


BLOS 


a* 


MOVE 


-(R2), RO 


BEQ 


2* 


BLT 


1* 


BIT 


#*MLOCK, LSW6<R0) 


BNE 


1* 



OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

002104' 



2* : BIS #*NDMEM, LSW < R 1 ) 

INC MEMSWP 

BIS #*NLOCK, LSW6<R1) 

MOV LOMAP, R2 

SUB BASMAP, R2 

MOV LBASE<R1),R0 

SUB R2, RO 

CALL SWPFRC 



Set flag saying we need to be swapped 

Tell swapper to do outswap 

Set flag saying job needs to be locked in mem 

Get lowest page # in use by user jobs 

Convert to a page # 

Get base page # of our job 

Get # pages to be swept 

Outswap jobs in the memory area 



OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 

001110' 



Now generate a swap command packet to cause our job to be 
locked in memory. 

CALL SCPGET i Get a swap command packet 

MOVB Rl, SP*U0B(R5) ; Set our job number 

MOVE #SA*LOK, SP*CMD<R5) i Set loc k-in-memory command 

Now suspend execution of our job until it is repositioned and locked 

in memory. 

MOV #S*WFM, RO J State = waiting for memory expansion 

CALL QNSPND ; Suspend job and do swapping to move job 

CALL CHKABT ; See if we were aborted while asleep 

BIT #*MLOCK, LSW6(R1 )i Is locking finished? 

BEO 5* ; Br if not 

v^MP EMTXIT i Finished 



I 
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RTLOCK - — EHT to lock a job in low memory 

58 ; Freeze job in current memoru position 

59 i 

60 002072 052761 OOOOOOG OOOOOOG B'$: BIS #*MLOCK> LSW6(R1 ) .: Loc k job in memory 

61 002100 000137 001110' JMP EMTXIT i Finished 



TSEMT T/S EMT PROCESSOR 
SWf^FRC — Force outswap of jobs 



MACRO V05. 04 Friday i8-Dec-B7 07:56 Pci.ge 10 
in certain memory range 



. SBTTL SWPFRC 



Force outsiuap of jobs in certain memory range 



3 








4 








5 








6 








7 








8 








9 








10 








11 002104 


010146 






12 002106 


010246 






13 002110 


013746 


OOOOOOG 




14 








15 








16 








17 002114 


013737 


0000000 


OOOOOOG 


18 








19 








20 








21 002122 


063702 


0000000 




22 002126 


112201 






23 002130 


003415 






24 002132 


032761 


OOOOOOG 


OOOOOOG 


25 002140 


001011 






26 002142 


032761 


OOOOOOG 


OOOOOOG 


27 002150 


001005 






28 








29 








30 








31 002152 


052761 


OOOOOOG 


OOOOOOG 


32 002160 


005237 


OOOOOOG 




33 








34 








35 








36 002164 


077020 






37 








38 








39 








40 002166 


012637 


OOOOOOG 




41 002172 


012602 






42 002174 


012601 






43 002176 


000207 







SWPFRC is called to force the outswap of all jobs that are occuping 
a certain range of memory. The jobs are outswapped and then 
placed in an executable state. 



Inputs: 
R2 = Lowest page # of region to be cleaned out. 
RO = Number of 512~byte pages in region. 



SWPFRC: MOV 
MOV 
MOV 



R 1 , - ( SP ) 
R2, -(BP) 
0#KPAR5, -(SP) 



.: Map PAR 5 to the memory map table 

MOV MAPPAR, e#KPAR5 ; Map PAR 5 to memory allocation table 
:• Sweep through allocation table looking for jobs to outswap 

> 

ADD BASMAP, R2 i Point to 1st entry in map table 

1$: MOVE (R2)+*R1 ; Get info about who is using this page 

BLE 2* i Br if page free or in use by system 

BIT #*NDMEM, LSW<R1) ils job already flagged for outswap? 

BNE 2* J Br if yes 

BIT #*MLOCK> LSW6<R1 )i Is job locked in memoryT' 

BNE 2* ; Br if yes 
f 

i We found a job that needs to be flagged for outswap 



B I S 
INC 



#*NDMEM.. L.SW(R1) ;Flag job for outswapping 
MEMSWP ; Remember another job to outswap 



; Check rest of memory region 

2*: SOB RO^ 1* ; Loop if more of region to check 

j 

; F i n i r. h e d 

> 

MOV <SP)+> e#KPAR5 i Restore PAR 5 mapping 

MOV ( SP ) +, R2 

MOV (SP)+, Rl 

RETURN 



f 
f 
I 
< 
i 

i 
i 

€ 

i 
i 

c 

I 

i 
i 
i 
I 
t 

i 



TSEHT T/S EHT PROCESSOR 

010 — Queue an I/O request 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
U 
12 
13 
14 
15 

16 002206 

17 002210 
18 

19 
20 

21 002214 

22 002220 
23 
24 
25 

26 002236 

27 002242 

28 002246 

29 002252 

30 002254 

31 002256 

32 002262 

33 002270 
34 

35 

36 

37 

38 002274 

39 

40 

41 

42 002300 

43 002304 

44 002306 
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SBTTL QIO 



Queue an I/O request 



010 is called to add an I/O request to the list of iDaiting 
T-equests for a device. If the device is idle it is started. 



Inputs: 

Rl = Address of I/O queue entry. 



Entry point for system 1/0 requests. 
013761 OOOOOOG OOOOOOG SYQIO: MOV @#KPAR5, Q. PA5<Ri ) ; Save PAR 5 mapping 

Entry point for normal job I/O requests 



002226 



010246 
013746 



016102 
001412 
020227 
103405 
016137 
062702 
105262 
116100 
001410 
006300 
105260 
116160 
005237 



QIO: 



OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOC 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



MOV 

MOV 



R2, -(SP) 
@#KPAR5, ~<SP) 



Increment I/O counters. 



OOOOOOG 



3*; 
liS: 



OOOOOIG 



MOV 

BEQ 

CMP 

BLO 

MOV 

ADD 

INCB 

MOVB 

BEQ 

ASL 

INCB 

MOVB 

INC 



Q. UCSW<R1). R2 

1* 

R2, #CXTBAS 

3* 



iAddress of user's channel block 

; Br if no channel block 

; Is channel in job context block? 

; Br if not 

Q. PA6<R1 ), @#KPAR5 ; Map par 5 to loc where context blk is 
#<VPAR5-CXTBAS>, R2; Get address of mapped channel block 
C. NUMQ<R2) ; Increment # I/O requests active on channel 
Q. J0B<R1). RO ; Get job # 
2* i Br if system doing I/O 

RO i Convert to job index number 

LIOCNKRO) i Inc # I/O requests active for this job 
Q. DEVX(R1),LI0CNT+1(R0) i Save index # of last dev job accessed 
UIOCNT ; Count total # of active user I/O operations 



Call lOSTRT to add I/O queue request to list for handler and 
start the I/O. 



004737 002310' 



2*: 



012637 
012602 
000207 



OOOOOOG 



CALL 

Finished 

MOV 
MOV 
RETURN 



lOSTRT 



<SP)+, @#KPAR5 
<SP)+, R2 



jAdd queue entry to handler and start I/O 



TSEMT 
IDSTRT - 

1 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 
49 

50 
51 
52 
53 
54 
55 
56 
57 
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— Try to start I/O transff?T 



fSBTTL lOSTRT 



'frii to start I/O transfer 



lOSTRT is called to initiate an I/O operation. 
It performs the folloujing operations: 

1. Allocate a Unibus Map Register (UMR) if I/O operation is being 
directed to a DMA d€?vic. e. 

2. Move data from user's buffer to system buffer if this is an 
1/0 to a device that requires system buffer mapping. 

3. Put I/O queue entry on list for device handler. 

4. Initiate device operation if it is idle. 



Inputs: 
Rl = Address of I/O queue entry. 



002310 010246 
002312 010446 



002314 116102 0000000 
002320 001004 



lOSTRT: MOV 
MOV 



R2, -<SP) 
R4, -<SP) 



Get index number of device this I/O operation is directed to. 



MOVE Q. DEVX(RJ ),R2 
BME 2* 



■> GET DEVICE INDEX NUMBER 
; BR IF I/O TO REAL DEVICE 



If device index number is zero, call lOCMPL to indicate I/O is finished 



002324 004737 003032 ' 
002330 000427 



MOV 

CALL 

BR 



Rl, R4 

lOCMPL 

QIOFIN 



iGET I/O QUEUE ELEMENT ADDRESS TO R4 

; Do I/O completion processing 

iWE ARE FINISHED WITH I/O OPERATION 



See if we are doing caching for this device 



002332 032762 0000000 OOOOOOG 2*: BIT 

002340 00 1 006 BNE 

002342 005737 OOOOOOG TST 

002346 001403 BEO 

002350 004777 OOOOOOG CALL 

002354 103415 BCS 



#DX*NCA. DVFLAG(R2); Is this device eligible for caching? 

4* i Br if not 

CSHALC ■> Is data caching genned into system? 

4* i Br i f not 

©CSHIO i See if doing data caching for this device 

QIOFIN i Br if caching took over the operation 



002356 032762 OOOOOOG OOOOOOG 

002364 001404 

002366 

002374 103405 



002376 004737 004470 ' 
002402 103402 



%^: 



See if hie need to do system buffering for this I/O operation 

BIT #DX$MAP, DVFLAG<R2); Does this device require buffer mapping? 

BEQ 3* iBr if not 

OCALL MIOCHK i See if this particular operation needs maping 

BCS QIOFIN ; Br if I/O mapping is being done 

See if ate need to allocate a Unibus map register set for this operation 



3$; 



CALL 
BCS 



GETUMR 
QIOFIN 



i SEE IF WE NEED TO ALLOCATE A UMR 

; BR IF NO FREE UMR — DEFER STARTING OPERATION 



002404 004737 002416' 



002410 012604 
002412 012602 



Place queue element on list for device handler 

CALL lOHANQ ; Place queue element on list for handler 

F i n i s h e cl 



QIOFIN: MOV 
MOV 



(SP)+, R4 
< SP ) +, R2 
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lOSTRT — Try to start 3. /O transfer 

58 002414 000207 RETURN 



TSEMT 
lOHANQ - 

1 

2 
3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



T/3 EMT 
— Place 
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I/O queue request on handler list 



002416 
002420 
002422 
002424 
002426 
002430 



002434 
002440 



002444 
002450 
002452 
002456 



002462 
002466 



002472 
002500 
002502 



010146 
010246 
010346 
010446 
010546 
013746 0000000 



116102 OOOOOOG 
005262 OOOOOOG 



016200 ooooooe 

00 1 402 

010037 OOOOOOG 

016202 OOOOOOG 



005061 OOOOOOG 
062701 OOOOOOG 



011200 
00 1 407 



002504 
002510 
002512 
002520 



010160 OOOOOOG 
010112 

000413 



002522 
002524 
002526 



010122 
010122 



. SBTTL lOHANQ — Place I/O queue request on handler list 

Place an I/O queue request on the list of pending requests for a device 
handler and enter the handler front-end if the handler is currently 
i d !i e . 

1 31 p u t s : 
Rl = Address of I/O queue entry 

lOHANQ; MOV 
MOV 
MOV 
MOV 
MOV 
MOV e#KPAR5, ~<SP) ; Preserve system PAR 5 mappint 

Increment count of uncompleted I/O operations for this device 



R 1 , - ( SP ) 




R2, -(SP) 




R3, ~<SP) 




R4, -<SP) 




R5, -(SP) 




e#KPAR5, ~ 


-(SP) 



MOVE Q. DEVX(R1)>R2 
IIMC HANI0C(R2) 



; Get device index number 

; Say another I/O operation started for dev 



Get address of device handler and set up PAR 5 if this is a mapped handler 



5*: 



MOV HANPAR(R2),R0 

BEG 5* 

MOV RO, @#KPAR5 

MOV HANENT(R2),R2 



i Is this a mapped handler? 
i Br if not 

j Map kernel PAR 5 to handler 
i R2 — > 4th word of handler 



Make Rl point to 3rd word of queue element (as handler wants it). 



CLR Q. LINK(Rl) 
ADD #Q. BLKN, Rl 



;SAY QUEUE ELEMENT WILL BE AT END OF CHAIN 
iMAKE Rl POINT TO 3RD WORD OF QUEUE ELEMENT 



Add new queue element to list of requests for this device. 



DISABL 

MOV 

BEQ 



(R2),R0 
1« 



; * DISABLE 

i * ADDRESS OF LAST Q ELEMENT IN LIST 

i * BR IF HANDLER IS IDLE NOW 



Handler is active. 

Just add our queue element to its list. 



MOV 
MOV 
ENABL 
BR 



R1,Q. LINK-Q. BLKN(RO)i « SET FORWARD LINK TO POINT TO US 

Rl, (R2) ;# STORE OUR Q ELEM ADDR INTO LQE IN HANDLER 

9* 



Handler is idle. 

Put queue entry into its list and start it. 



1*: 



MOV 
MOV 
ENABL 



Rl, (R2) + 
Rl, (R2)H- 



; * STORE Q POINTER INTO HANDLER LQE 
; * STORE Q POINTER INTO HANDLER CQE 



Enter system state so that we will be running on interrupt stack. 

We do this so the handler front-end can remap kernel PAR6 if it wants to. 



TSEMT 

I OHAMQ 



T/S EMT 
— Place 



58 002534 

59 002540 

60 002544 
61 

62 

63 

64 

65 

66 002546 

67 

68 

69 

70 002550 

71 002554 

72 002556 

73 002560 

74 002562 

75 002564 

76 002566 
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I/O queue request on handler list 



012700 002550' 
004737 OOOOOOG 

ooooooc 



MOV 
CALL 
. WORD 



#9*, RO 

ENSYS 

FP*IOS 



Page 13-1 



; GO HERE ON RETURN FROM SYSTEM STATE 

j ENTER SYSTEM STATE 

j Fork processing priority 



We are noiu running in syfctem state on interrupt stack. 

Enter handier front-end to initiate I/O operation. 

When the handler does a RETURN* uje will exit system state and go to QIOFIN. 



000112 



012637 
01260;:> 
012604 
012603 
012602 
012601 
000207 



JMP 
Finished 



OOOOOOG 



9$: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RETURN 



©RJ 



(SP)+, @#KPAR5 
<SP)+, R5 
(SP)+, R4 
(SP)+, R3 
<SP)+, R2 
<SP)+. Rl 



.: ENTER HANDLER FRONT-END 



c 

I 
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1 

2 

3 

4 

5 

6 

7 

B 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



. SBTTL lOFIN — 1/0 operation completion 



002570 
002572 
002574 
002576 
002600 



002602 
002606 



002610 
002612 
002620 
002622 
002624 
002632 
002634 
002640 
002644 
002646 
002650 



002654 



002662 
002666 



010046 
010146 
010346 
010446 
010546 



006264 
100457 



010405 

011501 
001004 

000445 
162701 
016115 
011503 
00 1 002 
005065 



116100 
005360 



177774 



0000000 
0000000 



177776 



0000000 
0000000 



IOF.IN is called by the device driver tuhen it completes an I/O operation. 

IDPIN queues a completion routine request for the user if it uas specified 

with the EMT, then tries to initiate any other pending I/O requests for 

the device. 



R4 
lOFIN: 



I n p u t s : 

Address of cell in handler with pointer to current queue entry. 



MOV 
MOV 

MOV 
MOV 
MOV 



RO, -<SP) 
R 1 , - < SP ) 
R3. -(SP) 
R4, -(SP) 
R5, -(SP) 



If handler is being held, return immediately without doing any cleanup. 



ASR 
BMI 



-4(R4) 
9* 



i Is handler being held? 
} Br if yes 



1$: 



^: 



Handler is not being hplri. 

Remove completed (current) queue entry from list for handler. 

Get address of CQE cell in handler 
j ** Disable interrupts ** 

; Address of 3rd word of current Q element 
; I3r if there is a completed Q element 

Handler has no active queue element 

; Point to 1st word of queue element 
J Delink queue element from handler list 
/Remember if we need to restart handler 
i Br if there are more pending elements 
i Clear LGE pointer in handler 

At this point we have removed the completed queue element from the 

handlers list. 

We have set the current queue element (CQE) pointer in the handler to 

point to the next queue element (if any) and have zeroed the last 

queue element (LQE) pointer if there are no remaining queue entries. 

Rl = Address of Ist word of completed queue element. 

R3 = Non-zero ==> Need to restart handler for next pending I/O op. 

R5 = Pointer to CQE cell in handler. 

ENABL i ** Enable interrupts «•* 

Decrement count of uncompleted I/O operations for this device 



MOV 


R4,R5 


DIEiABL 




MOV 


<R5),R1 


BNE 


1* 


ENABL 




BR 


9* 


SUB 


#Q. BLKN, Rl 


MOV 


Q. LINK(Rl).. (R5) 


MOV 


(R5>,R3 


BNE 


2* 


CLR 


-2(R5) 



MOVE Q. DEVX(Rl),nO 
DEC HANIOC(RO) 



; Get device index number 

>Dec # uncompleted I/O operations for dev 



If the device handler did not do a .FORK before calling lOFIN. we 
queue a fork request to do the completion processing for this 
queue element. 
If the handler did do a .FORK, we do the completion processing now. 
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Friday ia-Dec-S7 07:56 Pacie .14-1 



58 002672 

59 002676 

60 002700 

61 002704 

63 
64 

65 002706 

66 002712 

67 002720 

68 002726 

69 002732 

70 002736 

71 002742 
72 

73 
74 

75 002746 

76 002750 

77 002752 

78 002754 

79 002756 

80 002760 



105737 
001403 
004737 
000420 



004737 
112764 
012764 
010164 
010364 
010564 
004737 



012605 
012604 
012603 
012601 
1 2600 
000207 



ooooooe 



00276^ 



TSTB 
13 EQ 
CALL. 
BR 



FRKPRI 
3* 

lOFCPL 
9* 



; Are we running at fork level now? 

i Br if not 

; Do completion proce?55ing 

; Finished 



Handler did not fork. Queue a fork request to process completion routine 



OOOOOOG 
OOOOOOG OOOOOOG 



3*: 



002762 ' 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 



CALL 

MOVE 

MOV 

MOV 

MOV 

MOV 

CALL 

Finished 

9*: MOV 
MOV 
MOV 
MOV 
MOV 
RETURN 



FRKGET ; Get a free fork request block <addr in R4) 

#FP$IOF.. FQ*PRI<R4)j Set fork processing priority 

#IDFCPL, FQ*RTN<R4)i Set address of fork routine 

R1,FQ*R1(R4) ;Pass address of queue element in Rl 

R3, FQ*R3<R4) i Pass restart flag in R3 

R5, FQ*R5(R4) ; Pass address of CQE cell in R5 

FORKQ j Queue the fork request 



<SP)+, R5 
<SP)+, R4 
(SP)+, R3 
<SP)+, Rl 
<SP)+, RO 
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at fork level 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 

14 002762 
15 
16 
17 

18 002764 

19 002766 
20 

21 
22 
23 



010446 



010104 
004737 



002772 
002774 



31 
32 



25 

26 

27 

28 

29 

30 002776 
003000 
003002 

33 003004 

34 003006 

35 003010 

36 003014 

37 003016 

38 003020 

39 003022 

40 003024 
41 

42 
43 

44 003026 

45 003030 



005703 
001414 



010046 
010146 
010246 
010346 
010546 
004765 
012605 
012603 
012602 
012601 
012600 



012604 
000207 



00303J 



000002 



. SBTTL lOFCPL — lOFIN processing done at fork level 

This routine performs the part of the lOFIN operation that must 
run at fork level. 

This routine does the completion processing for the completed queue 
element and then recalls the handler front end if there is another 

queue element waiting to he started. 

Inputs: 
Rl = Address of 1st word of completed queue element. 

R'3 ~ Non-zero ==> Must call handler to start pending I/O operation 
R5 = Address of CGE cell in handler. 

lOFCPL: MOV R4, -<SP) 

Perform completion operation on queue element 



MOV 
CALL 



R1,R4 
lOCMPL 



; Get address of completed Q element 
; Do completion processing 



If there is a pending queue element for the handler, call the handler 
front end to start the next operation. 



TST 

BE<3 



R3 
9* 



; Do we need to recall handler?" 
.; Br if not 



There is a pending I/O operation. 
Call handler initiation section. 



9$: 



MOV 


R0> -<SP) 


MOV 


Rl. -<SP) 


MOV 


R2, -(SP) 


MOV 


R3, -<SP) 


MOV 


R5. ~(SP) 


CALL 


2<R5) 


MOV 


(SP)+, R5 


MOV 


(SP)+, R3 


MOV 


(SP)+, R2 


MOV 


<SP)+, Rl 


MOV 


(SP)+, RO 


i 1 1 i s h e d 




MOV 


( SP ) +> R4 


RETURN 





; Handler front end may use any register 



iCall handler front end to start next op 
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lOCMPL. — Do cleanup on completed 1/D queue element 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



SBTTL lOCMPL — Do cleanup on completed I/O queue element 



003032 
003034 
003036 
003040 
003044 
003046 
003052 
003056 
003060 
003066 
003072 
003076 
003100 
003102 
003106 
003112 
003114 
003116 
003122 
003124 
003132 
003136 
003142 
003146 
003152 
003156 
003162 
003164 
003170 



003174 
003176 
003200 
003206 
003210 



003214 
003222 



010046 
010146 
010346 
013746 
010401 
004737 
105764 
003403 
016437 
016403 
116401 
001405 
006301 
105361 
005337 
005703 
001427 
020327 
1034017 
016437 
062703 
016400 
042700 
050063 
016400 
020063 
101402 
010063 
105363 



005701 
001406 
026127 
00 1 002 
004737 



026427 
10145.1 



lOCMPL is ca 
element that 



lied to do the cleanup operation on an I/O queue 
belongs to an I/O operation that has just completed. 



Inputs: 
R4 = Address of I/O queue element to be cleaned up. 



Outputs: 
All cleanup 
returned to 



lOCMPL 



OOOOOOG 

004772 ' 

ooooooe 

OOOOOOG 000046' 

OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG OOOOOOG 

ooooooc 

OOOOOOG 
OOOOOOC 
OOOOOOG 

ooooooc 

OOOOOOG 

OOOOOOG 
OOOOOOG 



1$: 



7$: 



91S: 



10*: 



OOOOOOG OOOOOOG 
OOOOOOG 

> 

OOOOOOG 000001 2*: 



MOV 

MOV 

MOV 

MOV 

MOV 

CALL 

TSTB 

BLE 

MOV 

MOV 

MOVB 

BEQ 

ASL 

DECB 

DEC 

TST 

BEQ 

CMP 

BLO 

MOV 

ADD 

MOV 

BIC 

BIS 

MOV 

CMP 

BLOS 

MOV 

DECB 



is done on the queue element and the queue element is 
the free list or is used to queue a completion routine. 



RO, -(SP) 

R 1 , - ( SP ) 

R3, -(SP) 

@#KPAR5, -<SP) 

R4, Rl 

FREUMR 

Q, FUNC<R4) 

1* 



i Save pa 
; Get add 
J Release 
; Spec ial 
; Br if n 
Q. WCNT(R4), SPSIZE ; Save 



<3. UCSW(R4),R3 

Q. J0B(R4), Rl 

7* 

Rl 

LIOCNT(Rl) 

UIOCNT 

R3 

12* 

R3, #CXTBAS 

9* 



Get add 
Get job 
Br if r 
Convert 
Dec # I 
One mor 
Is ther 
Br if n 
Is chan 
Br if n 



t to Rl 
for I/O 



tatus block 
request 

er 

this user 
ished 



Q. PA6(R4), e#KPAR5j Map pa 
#<VPAR5-CXTBAS>, R3i Get a 
Q. ICSW<R4),R0 J Get int 
#-^C<CS*EOF ! CS*ERR>, RO > C 
RO, C. CSW<R3> iTransfe 
Q. ICSW+C. USED<R4). RO; Get 
RO, C. USED(R3) ; Compare 
10* .: Br if h 

RO, C. USED(R3) i Save hi 
C. NUMQ<R3) i Dec # I 



r 5 mapping 

ress of I/O queue elemen 

any unibus map te§ used 

look up /enter 7' 
ot 

file size 
ress of user's channel s 

number associated with 
equest came from system 

job # to job index numb 
/O operations active for 
e user I/O operation fin 
e a channel bloch? 
ot 

nel in mapped job context block? 
ot 

r 5 to job context block 
ddress of mapped channel 
ernal CSW value 
lear all but error and e 
r error and eof flags to 

highest block # written 

with blk # in original 
andler didn't increase 
gh block # in original c 
/O operations on channel 



in par 5 

of flags 
user's CSW 

chan blk 

hannel block 



See if user is waiting for 1/0 to finish. 



Rl i IS THIS A SYSTEM I/O REQUEST? 

2* ;BR IF YES 

LSTATE<R1), #S*IOWT ; IS USER WAITING FOR I/O TO FINISH? 

2* i BR IF NOT 

QHIPRI i PLACE USER IN RUN QUEUE 

ed to queue a completion routine request for user. 

Q. C0MP<R4), #1 ; WAS A COMPLETION ROUTINE SPECIFIED? 
3* ; BR IF NOT 

letion routine request for user. 

queue entry into completion queue entry format. 





TST 




BEQ 




CMP 




BNE 




CALL 


See 


if we ne 




CMP 




BLDS 


Queue a comp 


Convert I/O 



I 

I 
f 
I 
c 
i 
i 
i 
f 

I 
i 
i 
I 

i 
i 
i 
i 
i 
i 
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lOCMPL — Do cleanup on completed I/O qut?ue element 



58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 



003224 
003232 
003240 
003244 
003246 
003252 
003254 
003262 
003264 
003272 
003300 
003306 
003314 
003322 
003330 
003332 
003340 
003344 



003346 
003350 



003354 
003360 
003362 
003364 
003366 



016464 
016364 
110164 
001415 
005761 
001404 
112764 
000403 
112764 
116164 
016464 
1 1 6464 
112764 
132764 
00 1 403 
1 1 2764 
004737 
000403 



010401 
004737 



012637 
012603 
012601 
012600 
000207 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 



OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOC 

OOOOOOG 
003370 ' 



004222 ' 



OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 



5* 
6* 
8$ 



11$: 



3*: 



IN 
ON 



Rl ON 
COMPL 



; CHANNEL # GOES 

; CSW GOES IN RO 
SET JOB # 

Br if system completion 
Is job in an interactive 
Br if not 

interactive-computation 



COMPL 
CALL 



CALL 



state? 



MOV Q. CHAN<R4), CQi{;R1<R4) 

MOV C. CSW<R3), C0fR0(R4) 

MDVB R 1 , CQ«JOB ( R4 ) 

BEQ 8* 

TST LITIIiE(Rl) 

BEQ 5* 

MOVE #S*HICP, CQ*RNS<R4); Set interactive-computation as state 

BR 6* 

MOVB #S«IOFN, CQ*RNS<R4); SET EXECUTION STATE FOR COMPLETION ROUTINE 

MOVE LPRI<R1),CQ*PRI<R4); Set execution priority value 

MOV Q. PA5(R4),CQ*PA5(R4)>SET EMT ENTRY MAPPING FOR PAR 5 

MOVE Q. FLAG(R4), CQ$FLG(R4) ; Copy control flags 

MOVB #CP*STD, CQ*CP<R4); Set standard completion class priority 

BITB #<QF*MI0!QF*CI0>,CQ*FLG<R4)i Secondary op for MIO or cache? 

BEQ 11* i Br if not 

MOVB #CP*RT» CQ*CP<R4)i Run cache completion routines at higher prio 

CALL QCOMPL ; QUEUE A COMPLETION ROUTINE FOR USER 

BR 4* 



We don't need to queue a completion routine 

so just return I/O queue element to the free list. 



MOV 
CALL 



R4, Rl 
QFREE 



; GET ADDRESS OF Q ENTRY TO Rl 
iFREE THE I/O QUEUE ELEMENT 



i Finished with cleanup. 



4$: 



MOV 


(SP)+, @#KPAR5 


MOV 


<SP)+, R3 


MOV 


(SP)+, Rl 


MOV 


<SP)+, RO 


RETURN 





TSEHT 


T/S EHT 


PROCESS 


OR 


MACRO V 


QCOMPL • 

1 
2 
3 


— Queue 


a compl 


etion routine re 


4 
5 
<b 
7 
S 


003370 


010146 






9 


003372 


010246 






10 










11 










12 










13 


003374 


116401 


0000000 




14 


003400 


001031 






15 










16 










17 










18 










19 


003402 


016400 


0000000 




20 


003406 


016401 


OOOOOOG 




21 


003412 


010246 






22 


003414 


010346 






23 


003416 


010446 






24 


003420 


010546 






25 


003422 


013746 


0000000 




26 


003426 


016437 


OOOOOOG 


OOOOOOG 


27 


003434 


004774 


OOOOOOG 




28 


003440 


012637 


OOOOOOG 




29 


003444 


012605 






30 


003446 


012604 






31 


003450 


012603 






32 


003452 


012602 






33 










34 










35 










36 










37 


003454 


010401 






38 


003456 


004737 


004222 ' 




39 


003462 


000477 






40 










41 










42 










43 










44 


003464 








45 


003472 


010100 






46 


003474 


062700 


OOOOOOC 




47 


003500 


010002 






48 


003502 


016200 


OOOOOOG 




49 


003506 


001416 






50 


003510 


1 26460 


OOOOOOG 


OOOOOOG 


51 


003516 


103770 






52 


003520 


101011 






53 


003522 


126460 


OOOOOOG 


OOOOOOG 


54 


003530 


101363 






55 


003532 


103404 






56 


003534 


126460 


OOOOOOG 


OOOOOOG 


57 


003542 


101756 
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;t 

. SBTTL QCOMPL — Queue a completion routine request 

QCOMPL is called to queue a completion routine request for a user. 

Inputs: 
R4 = Address of completion request queue element (must be set up). 



QCOMPL: MOV 
MOV 



R 1 . - ( SP ) 
R2, -<SP) 



See if this is a completion request for a system or user operation. 



MOVE CQ«J0B<R4),R1 
BNE 1* 



J GET JOB # ASSOCIATED WITH REQUEST 
J BR IF THIS IS A USER COMPL REQUEST 



This is a completion request for a system operation. 
Call the completion routine directly. 



MOV 

MOV 

MOV 

MOV 

MOV 

MCJV 

MOV 

MOV 

CALL 

MOV 

MOV 

MOV 

MOV 

MOV 



CQ*R0<R4), RO 
CQ*R1(R4), Rl 



.i SET UP REGISTERS FOR COMPL ROUTINE 



R3, -(SP) 

R4, -<SP) 

R5, -<SP) 

@#KPAR5, ~<SP) ; Save current PAR 5 mapping 

CQ*PA5<R4>, e#KPAR5i Set up mapping for PAR 5 region 

eCQ*RTN<R4) iCALL SYSTEM COMPLETION ROUTINE 

<SP)+, ©#KPAR5 > Restore PAR 5 mapping 

(SP)+, R5 

(SP)+, R4 

<SP)+, R3 

<SP)+, R2 



f-inished calling system completion routine. 
Return queue element to free list. 

GET ADDRESS OF COMPLETION QUEUE ENTRY 
RETURN COMPL QUEUE ELEMENT TO FREE LIST 
FINISHED 

This is a completion routine request for a user job. 

Add the completion request to the list of pending routines for this job. 



MOV 


R4, Rl 


CALL 


QFREE 


BR 


9* 



1*: 



i*; 



DISABL i ■»•* Di 

MOV R1,R0 ;Get c 

ADD #LCMPL-CQ*LNK, RO; Get a 

MOV RO, R2 ; Move 

MOV CQ$LNK(R2),R0 ; Get a 

BEQ 3* ; Br i f 

CMPB CQ*CP(R4), CQ$CP<RO)iCo 

BLO 2* i Br i f 

BHI 3* ;Br if 

CMPB CQ*RNS(R4), CQ*RNS<RO)i 

BHI 2* ;Br if 

BLO 3* ;Br if 

CMPB CQ*PRI(R4).CQ*PRI(R0) 

BLOS 2* ;Br if 



sable *■«• 
urrent job 
ddress of L 
addr of nex 
ddr of foil 

uje are at 

mpare compl 

new elemen 

new elemen 

Compare sta 

new elemen 

new elemen 

; States are 

new priori 



number 
CMPL(Rl) 

t compl queue element to R2 
owing queue element 
the end of the list 
etion class priorities 
t is of lower priority 
t is of higher priority 
te of new one to next 
t is of lower priority state 
t is of higher priority state 
the same, compare prio value 
ty is lower or equal 



TSEMT 
QCOMPL 



T/S EMT 
— Queue 
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a completion routine request 



58 003544 

59 003550 

60 003554 
61 

62 
63 

64 003562 

65 003566 

66 003570 
67 

68 
69 
70 

71 003576 

72 003602 

73 003606 

74 003610 

75 003614 

76 003620 

77 003622 

78 003630 

79 003632 
80 

81 

83 003640 

84 003644 

85 003650 

86 003652 

87 003656 
88 

89 
90 

91 003662 

92 003664 

93 003666 



010064 000000<3 
010462 OOOOOOG 



3*: 



RO, CQ«LNK<R4> 
R4, C0*LNK(f<2) 



.; CHAIN NEW ONE INTO LIST FOR JOB 
; -h-* ENABLE «•■«■ 
Set default completion routine class priority if none was specified. 



MDV 
MOV 
ENABL 



105764 OOOOOOG 

001003 

112764 OOOOOOG OOOOOOG 



TSTB CQ*CP(R4) > Was a class priority specified? 

I3NE 7« ;Br if yes 

MOVB #CP*STD, CQ*CP<R4); Set standard class priority 

If the completion priority is at a real-time levels make sure 
the execution state is SURT 



116400 OOOOOOG 

120061 OOOOOOG 

101402 

110061 OOOOOOG 

120037 OOOOOOG 

103407 

126427 OOOOOOG OOOOOOG 

101403 

112764 OOOOOOG OOOOOOG 



116400 OOOOOOG 

026100 OOOOOOG 

101402 

004737 OOOOOOG 

105237 OOOOOOG 



7$: 



5*: 



MOVB 

CMPB 

BLOS 

MOVB 

CMPB 

BLO 

CMPB 

BLOS 

MOVB 



CQ*PRI<R4), RO 

RO, LPRKRl ) 

5* 

RO, LPRKRl ) 

RO, VPRIHI 

6* 



; Get execution priority for compl routine 

; Is current priority at least this high? 

j Br if yes 

; Boost priority till completion routine runs 

ils this a real-time priority? 

J Br if not 



CQ*RNS(R4)> #S*RTi Is real-time execution state specified? 

6* i Br if yes 

#S*RT, CQ$RNS<R4)i Set real-time execution state 



6*: 



4*: 



Place job in appropriate execution state <as specified in CQ*RNS) 

GET REQUESTED EXECUTION STATE FOR JOB 

IS JOB ALREADY IN THAT STATE OR HIGHER PRIO? 

BR IF YES 

CHANGE JOB'S EXECUTION STATE 

REQUEST A JOB SCHEDULER CYCLE 



012602 
012601 
000207 



9$: 



MOVB 


CQ*RNS(R4),R0 


CMP 


LSTATE(Rl), RO 


BLOS 


4* 


CALL 


ENQTL 


INCB 


DOSCHD 


Fini shed 




MOV 


(SP)+, R2 


MOV 


<SP)+, Rl 


RETURN 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 



. SBTTL FAKCMP 



Generate fake completion routine request 



FAKCMP is called to generate a completion queue request for I/O operations 
such as TT I/O and spooled I/O that never enter a normal I/O queue request. 



Inputs: 
EMTBLK = EMT argument black for readc or write. 
CHNNUM = User's channel number. 



003670 
003672 



010146 
010446 



FAKCMP: MOV 
MOV 



R 1 , - ( SP ) 
R4, -<SP) 



003674 004737 004102 



Get an I/O queue entry 
CALL GETQ 



iGET AN I/O QUEUE ENTRY FROM FREE LIST 



Set up queue entry to look like a completion queue request. 
(Address of queue element is now in Rl) 



003700 113761 

003706 005061 

003712 013761 

003720 

003724 

003730 

003732 

003736 

003744 

003752 

003756 

003764 

003772 



OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 
013700 0000 lOG 
004737 005352 ' 
103434 

010061 OOOOOOG 
013761 OOOOOOG OOOOOOG 
112761 OOOOOOG OOOOOOG 
113700 OOOOOOG 
116061 OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 



112761 
005761 



003370 



003776 001403 
004000 112761 



004006 010104 
004010 004737 



004014 012604 
004016 012601 
004020 000207 



22 004737 004222' 
004026 012700 177766 
004032 000137 004036' 



OOOOOOG OOOOOOG 



MOVB 

CLR 

MOV 

MOV 

CALL 

BCS 

MOV 

MOV 

MOVB 

MOVB 

MOVB 

MOVB 

TST 

BEQ 

MOVB 



CORUSR, CQ*JOB<Rl)iSET JOB # IN QUEUE ENTRY 



CQ$R0<R1) 

CHNNUM, CQ«R1 (Rl) 

EMTBLK+10, RO 

UACHKW 

9* 

RO, CQ«RTN(R1) 



i SAY CSW IS ZERO (NO ERRORS) 
; RETURN USER'S CHANNEL # IN Rl 
i GET ADDRESS OF COMPL ROUTINE 
; MAKE SURE ADDRESS IS LEGAL 
; BR IF INVALID 

; SET COMPLETION ROUTINE ADDRESS 
EMTMAP,CQ*PA5(R1);SET EMT ENTRY PAR 5 MAPPING 
#CP*STD» CQ*CP(R1 ) J Set standard completion class priority 
CORUSR, RO iGet job number 

LPRI(RO), CQ$PRI(Rl)i Set job execution priority 
#S*IOFN, CQ*RNS(Rl)iSET EXECUTION STATE FOR COMPL ROUTINE 
LITIME(Rl) i Is this an interactive job? 
1$ i Br i f not 

#S*HICP> CQ*RNS<R1 ); Set execution state for interactive job 



Queue completion request for this job. 



1*: 



9*: 



MOV 


Rl, R4 


CALL 


QCOMPL 


Fini shed 




MOV 


(SP)+, R4 


MOV 


(SP)+,R1 


RETURN 




Error: Invalid compl 


CALL 


QFREE 


MOV 


#-12, RO 


JMP 


SETERR 



; GET ADDRESS OF COMPL Q ELEMENT TO R4 
i QUEUE COMPL REQUEST FOR JOB 



; RETURN THE QUEUE ELEMENT 

i RETURN INVALID-EMT ERROR CODE 
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SETERR — Set EMT error code and exit 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 



. SBTTL SETERR 



Set EMT error code and exit 



004036 110037 OOOOOOG 
004042 002010 



004044 105737 OOOOOOG 
004050 001005 



004052 010005 

004054 013704 OOOOOOG 

004060 000137 OOOOOOQ 



SETERR is jumped to to set an EMT error code and exit from the 
EMT processing. 



Inputs: 
RO =-• EMT error code to be returned. 



SETERR: MOVE 
BQE 



RO, EMTERR 
ERROK 



i SAVE ERROR CODE 

i BR IF POSITIVE VALUE 



We have a negative error code. 

This implies a fatal error unless a . SERR was done. 



TSTB SERFLG 

BNE ERROK 

•> Fatal EMT error, 

i Abort the job. 

MOV R0> R5 
EMTABT: MOV EMTADR, R4 

JMP ABORT 



i WAS A . SERR DOME? 
;BR IF YES 



GET ABORT CODE 

GET ADDRESS OF EMT INSTRUCTION 

ABORT THE JOB 



004064 105037 OOOOOOG ERROK: CLRB 

004070 052737 OOOOOOG OOOOOOG SETC: BIS 
004076 000137 001110' JMP 



Non-fatal error. Return with c-flag set. 
ERROK: 



INTERR 
#CFLAG, EMTPS 
EMTXIT 



; IGNORE INTERNAL ERROR CODE 
; SET C-FLAG IN PS 



TSEMT 
GtTQ 



T/S EMT 
— Get 3 
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free 1/0 queue element 



1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

le 

19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



004102 



004110 
004114 



005737 0000000 
003011 



004116 
004122 
004126 
004132 
004136 



005237 000026' 

012700 OOOOOOG 

004737 OOOOOOG 

004737 OOOOOOG 
000761 



004140 
004144 
004150 
004156 



005337 OOOOOOG 
013701 OOOOOOG 
016137 OOOOOOG OOOOOOG 



004164 004737 004200' 



004170 013761 OOOOOOG OOOOOOG 



SBTTL GETQ 



Get a free I/O queue element 



GETCil is called to get a free I/O queue element. 

If there are no free elements available, the user is suspended until 

one becomes available. 

Outputs: 

Rl = Address of I/O queue element obtained. 

GETQ: DISABL ; ; ; DISABLE INTERRUPTS 

Reserve the last few queue elements for system I/O use. 



TST 
BGT 



NMFREQ 
1* 



; ; ; ANY QUEUE ELEMENTS WE CAN USE? 
i j i BR IF YES 



There sre no free I/O queue elements. 
Put user in queue waitint) for one. 



INC 


QWTCNT 


MOV 


#S$NEDQ, RO 


CALL 


QNSPND 


CALL 


CHKABT 


BR 


GETQ 



i i J Sau another job waiting for queue element 
.: ; ; QUEUE FOR JOBS WAITING FOR Q ELEMENTS 
inADD JOB TO END OF QUEUE LIST (ENABLE I NTS) 
; See if job was aborted while asleep 
; GO BACK AND TRY TO GET A QUEUE ELEMENT 



We have found a free queue element. 
Remove it from the free list. 



1$: 



DEC 
MOV 
MOV 
ENABL 



NMFREQ i i 

FREIOQ, Rl ii 
Q. LINK(Rl), FREIOQ; 



DEC # FREE QUEUE ELEMENTS 

GET ADDRESS OF 1ST FREE Q ELEMENT 

; REMOVE ELEMENT FROM FREE LIST 



004176 000207 



004200 
004202 
004204 
004210 
004212 
004214 



010146 
010246 
012702 
005021 
077202 
012602 



; Enable interrupts 
Zero the I/O queue element 

CALL ZEROQ ; ZERO THE QUEUE ELEMENT 

Save info about current job context block mapping in queue element 

MOV @#KPAR6, Q. PA6<R1) i Save context block mapping 
F i n i 6 h e d 

RETURN 



ZEROQ is called to zero an I/O queue element. 

I n p u t s : 
Rl - Address of I/O queue element 



OOOOOOC 



ZEROQ; MOV 
MOV 
MOV 

1«: CLR 
SOB 
MOV 



R 1 , - < SP > 
R2, -<SP) 
#I0QSIZ/2> R2 
<R1) + 
R2, 1* 
(SP)+, R2 



iGET # WORDS IN I/O QUEUE ELEMENT 
i ZERO ALL WORDS IN QUEUE ELEMENT 
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GETQ — Get a free I/O queue element 

58 004216 012601 MOV (SP)+, Rl 

59 004220 000207 RETURN 
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QFREE --- Return an I/O queue element 
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to the free list 



1 

2 








3 








4 








5 








6 








7 








8 








9 


004222 


010046 




10 


004224 






11 


004232 


013700 


0000000 


12 


004236 


010061 


OOOOOOG 


13 


004242 


010137 


0000000 


14 


004246 






15 


004254 


005237 


0000000 


16 


004260 


003415 




17 








18 








19 








20 


004262 


005737 


000026 ' 


21 


004266 


001412 




22 


004270 


012700 


0000000 


23 


004274 


004737 


OOOOOOG 


24 


004300 


103403 




25 


004302 


004737 


OOOOOOG 


26 


004306 


000402 




27 


004310 


005037 


000026 ' 


28 








29 








30 








31 


004314 


012600 




32 


004316 


000207 





. SBTTL QFREE 



F<eturn an I/O queue element to the free list 



QFREE is called to return an I/O queue element to the free list. 



I n p u 1 5 : 

Rl = Address of queue element to be freed. 

All registers avB preserve. 



QFREE: MOV 


RO, -<SP) 


DISABL 




MOV 


FREIDQ, RO 


MOV 


RO, Q. L INK <R1) 


MOV 


Rl, FREIOQ 


ENABL 




INC 


NMFREQ 


BLE 


9* 


; Restart users waiting for 



2*: 



9$: 



TST 


QWTCNT 


BEQ 


9* 


MOV 


#S*NEDQ, RO 


CALL 


QSRCH 


BCS 


2* 


CALL 


QHIPRI 


BR 


9* 


CLR 


QWTCNT 


\~ i n i 5 h e d 




MOV 


<SP)+, RO 


RETURN 





* DISABLE INTERRUPTS 

« GET CURRENT HEAD OF FREE LIST 

# CHAIN NEW ELEMENT INTO FREE LIST 

ENABLE INTERRUPTS 

INC # FREE QUEUE ELEMENTS 

BR IF NOT ENOUGH FOR USER JOBS TO USE 



; Are any jobs waiting for a queue element? 

; Br if not 

i Get wait state 

i See if any jobs waiting for queue element 

; Br if no jobs waiting 

j Requeue job in high-priority state 

i Restarted all waiting jobs 



i 
i 



TSEMT 
GETSYQ 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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— Get queue element for 
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5y5tem 1/0 



SBTTL GETSYQ -— feet queue element for system I/O 



GETSYQ is called to get a queue element to be used for system 

(kernel mode) I/O operations. 

GETSYQ gets a free queue element and sets up information in it. 

Inputs: 
Rl = Address of system channel block to be used for I/O. 



Outputs: 
Rl = Address of I/O queue element obtained. 



004320 
004322 



010246 
010102 



GETSYQ: MOV 
MOV 



R2, -(SP) 
Rl. R2 



004324 004737 004414' 



i GET ADDRESS OF CHANNEL. BLOCK 
Get a free I/O queue element 

CALL GETRTQ ; GET A QUEUE ELEMENT (ADDRESS RETURNED IN Rl) 

Set up information in queue element about the channel 



004330 
004334 
004336 
004342 
004346 
004352 
004360 
004366 
004374 
004400 
004404 



004410 
004412 



010261 
010100 
062700 
010061 
016210 
016261 
116261 
012761 
016202 
042702 
110261 



012602 
000207 



OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

177701 

OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



MOV 

MOV 

ADD 

MOV 

MOV 

MOV 

MOVE 

MOV 

MOV 

BIC 

MOVE 

Finished 

MOV 
RETURN 



ADDRESS OF CSW FOR CHANNEL 

GET ADDRESS OF I/O QUEUE BLOCK 

POINT TO INTERNAL CSW WORD 

SET POINTER TO INTERNAL CSW WORD 

INITIALIZE CSW WORD 

C. SBLK(R2),Q. BLKN(Rl)iBASE BLOCK # OF FILE 

C. DEVQ(R2), Q. UNIT(Rl)i DEVICE UNIT # 

#VPAR6. Q. BUFF (Rl); SET BUFFER ADDRESS TO MAP THROUGH PAR 6 



R2, Q. UCSW(Rl) 
Rl, RO 

#Q. ICSW, RO 
RO, Q. CSW(Rl) 
C. CSW(R2), (RO) 



C. CSW(R2>, R2 

#-^C76, R2 

R2, Q. DEVX(R1 ) 



( SP ) +, R2 



GET CHANNEL STATUS WORD 

CLEAR ALL BUT DEVICE INDEX NUMBER 

SET DEVICE INDEX NUMBER 



. SBTTL GETRTQ 



(rJet queue element for real-time use 



GETRTQ is called to get a free I/O queue element for system or 
real-time use. 

Outputs: 
Rl = Address of free queue element obtained. 
A system crash occurs if there ave no free queue elements. 



004414 
004422 
004426 
004430 
004436 
004442 
004450 
004454 



013701 
001413 
016137 
005337 

004737 
000207 



GETRTQ; DISABL 
OOOOOOG MOV 

BEQ 
OOOOOOG OOOOOOG MOV 

OOOOOOG DEC 

ENABL 
004200 ' CALL 

RETURN 



i *« DISABLE ^s•«• 
FREIOQ, Rl ;GET ADDRESS OF A FREE I/O QUEUE ELEMENT 
1* ; SYSTEM CRASH IF NO FREE ELEMENTS AVAILABLE 

Q. LINK(Rl),FREIOQi REMOVE QUEUE ELEMENT FROM FREE LIST 
NMFREQ > DEC # AVAILABLE QUEUE ELEMENTS 

; «•* ENABLE «■» 
ZEROQ ■> ZERO THE QUEUE ELEMENT 



Fatal system error — No free I/O queue elements available. 
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GETRTQ — Get queue element for real-time use 

58 ; 

59 004456 1*: DIE #EM*NQE i NO QUEUE ELEMENTS AVAILABLE 



TSEMT T/S EMT PROCESSOR MACRO VOS. 04 
GETUMR — Allocate Unibus map register 



1 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 

25 004470 

26 004474 

27 004476 

28 004502 

29 004504 

30 004512 

31 004514 

32 004516 
33 

34 
35 

36 004520 

37 004522 

38 004524 

39 004526 
40 

41 
42 

43 004530 

44 004534 

45 004536 
46 

47 
48 

49 004540 

50 004544 

51 004552 

52 004556 

53 004560 

54 004564 

55 004566 

56 004572 

57 004576 



Fr i d a y 1 S-D e c -87 07:56 Pa g e 23 



SBTTL GETUMR — Allocc^te Unibus map register 



GETUMR is called to determine if a Unibus map register set needs to be 
allocated for an I/O operation. If unibus mapping is needed for the 
operation. GETUMR attempts to find a free unibus map register set large 
enough to handle the operation. If a free UMR can be found* it is 
allocated to the operation. If no free UMR can be found* the I/O 
queue request is placed on a waiting list and an exception condition 
is signaled on return. 

I n p u t B : 
Ri - Address of I/O queue entry. 
R2 = Device index number of device I/O is being directed to. 

Outputs: 
C-flag clear ==> A UMR was successfully allocated. 
C -f lag set ==> No free UMR. Defer I/O request. 

Q. UMRX = Address of UMR descriptor block for UMR that mas allocated. 
Q. UMPB = Original value of Q. BUFF 
Q. UMPP = Original value of (i. PAR 
Q. UMVB = Number of base UMR being used by operation. 



See if this device needs unibus mapping 



005761 
00 1 007 
105737 
001404 
032762 
001002 
000241 
000207 



010246 
010346 
010446 
010546 



016103 
002001 
005403 



012704 

005764 
00 1 003 
020364 
101425 
062704 
020427 
103765 



0000000 
OOOOOOG 
OOOOOOG OOOOOOG 



GETUMR: TST 
BNE 
TSTB 
BEQ 
BIT 
BNE 

9$: CLC 

RETURN 



0. UMRX <R LI 
9* 

UBUSMP 
9* 



; Have we already allocated a UMR? 
; Br if yes 

; IS UNIBUS MAPPING NEEDED AT ALL? 
; BR IF NOT 



#DX*DMA*DVFLAG<R2) ; IS THIS A DMA DEVICE? 
11* ;BR IF YES 

i SIGNAL SUCCESS ON RETURN 



We must do unibus mapping for this I/O operation. 



11*: 



MOV 


R2, 


-<SP) 


MOV 


R3, 


-(SP) 


MOV 


R4, 


-<SP) 


MOV 


R5, 


- < SP ) 



Determine houj many words are being transferred 



OOOOOOG 



MOV Q. WCNT(R1)*R3 
BGE 10* 
NEG R3 



GET SPECIFIED WORD COUNT 
BR IF VALUE POSITIVE 
GET POSITIVE WORD COUNT 



OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 



Find the smallest free UMR set that is large enough for this transfer 

POINT TO BASE OF UMR DESCRIPTOR BLOCKS 

*i{- DISABLE «•«• 

IS THIS UMR SET FREE? 

BR IF NOT 

IS THIS UMR SET LARGE ENOUGH? 

BR IF YES 

POINT TO NEXT UMR DESCRIPTOR 

CHECKED ALL? 

BR IF NOT 



10*: 


MOV 
DISABL 


#UMRBAS* R4 


1*: 


TST 


UM*I0Q<R4) 




BNE 


5* 




CMP 


R3*UM*WDS<R4) 




BLOS 


4* 


5*: 


ADD 


#UM**SZ,R4 




CMP 


R4> #UMREND 




BLO 


1* 
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GETUMR — Allocate Unibus map regiRter 



f 



58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



004600 
004604 
004610 
004612 
004614 
004616 
004622 
004626 
004634 
004636 



004640 
004644 
004652 



004656 
004662 
004666 
004672 
004676 



004704 
004710 
004712 
004716 
004720 
004722 
004726 
004732 
004736 
004742 
004744 
004746 
004752 
004754 



004756 
004760 
004762 
004764 
004766 



012704 
016405 
001402 
010504 
000773 
010164 
005061 

000261 
000450 



010164 
010461 



016105 
010561 
016103 
010361 
116461 



162705 
005002 
073227 
060503 
005502 
116405 
072527 
062705 
116400 
010325 
010225 
062703 
005502 
077006 



000241 
012605 
012604 
012603 
012602 



There are no free UMR repister sets of adequate size. 
Put I/O queue entry on l;i&t waiting for a free UMR. 



OOOOOOC 
OOOOOOG 



0000000 
OOOOOOG 



2$: 



3*: 



MOV 

MOV 

BEQ 

MOV 

BR 

MOV 

CLR 

ENABL 

SEC 

BR 



#<UMRWHD"Q. LINK>, R4 ; POINT TO HEAD OF WAIT LIST 



Q. LINK(R4), R5 

3* 

R5, R4 

2* 

Rl, Q. LINK<R4) 

Q. LINK(RJ ) 



8* 



IS THIS THE LAST ENTRY IN THE LIST? 

BR IF YES 

LINK TO NEXT ENTRY 

GO CHECK IT 

ADD OUR I/O QUEUE ENTRY TO TAIL OF LIST 

SAY WE ARE THE LAST ENTRY IN LIST 

*«• ENABLE *■«• 

SIGNAL FAILURE 

GO RETURN 



OOOOOOG 
OOOOOOG 



We found a free UMR. Ciciim it for our I/O request 
4$: MOV Rl, UM*I0Q<R4> 

R4, Q. UMRX<R1) 



MOV 

ENABL 

MOV 



SAY UMR SET IS IN USE 

*«• ENABLE «•« 

REMEMBER WHICH UMR SET IS USED BY OPERATION 



Set up information in I/O queue entry that will be used by MPPHY 
routine to calculate unibus virtual address. 

Q. UMPB = Original value of Q. BUFF 

Q. UMPP = Original value of 0. PAR 

0. UMVB = Number of base UMR being used by transfer. 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG 
000006 



OOOOOOG 
000002 
OOOOOOG 
OOOOOOG 



MOV 
MOV 
MOV 
MOV 
MOVB 



Q. BUFF<R1>,R5 
R5, Q. UMPB(R1 > 
Q. PAR(R1>, R3 
R3, Q. UMPP(Rl) 



GET CURRENT BUFFER ADDRESS RELATIVE TO PAR6 

SAVE ORIGINAL BUFFER ADDRESS 

GET PAR6 BASE ADDRESS 

Save original value of Q. PAR 



UMfUMR < R4 ) , O. UMVB ( R 1 ) ; BASE UMR # 



Set up mapping base value in unibus map register. 



020000 



SUB 


#VPAR6, R5 


^ CLR 


R2 


' ASHC 


#6, R2 


ADD 


R5. R3 


ADC 


R2 


MOVB 


UM*UMR(R4), R5 


ASH 


#2, R5 


ADD 


#UMRADR> R5 


MOVB 


UM«NMR(R4),R0 


6*: MOV 


R3, (R5) + 


MOV 


R2, <R5) + 


ADD 


#8192. ,R3 


ADC 


R2 


SOB 


RO, 6* 


; Finished 




7*: CLC 




S*: MOV 


<SP)+, R5 


MOV 


(SP)+, R4 


MOV 


<SP)+, R3 


MOV 


<SP)+, R2 



REMOVE PAR6 BIAS FROM BUFFER ADDRESS 

SET UP HIGH-ORDER REGISTER (R2-R3) 

SHIFT Q. PAR VALUE 6 PLACES <R2-R3) 

ADD IN BUFFER BASE OFFSET 

PROPOGATE CARRY 

GET UNIBUS MAP REGISTER # 

#4 BYTES PER REGISTER 

GET ADDRESS OF UNIBUS MAP REGISTER 

GET # MAP REGISTERS USED IN THIS SET 

SET LOW ORDER VALUE 

SET HIGH ORDER VALUE 

ADVANCE ADDRESS VALUE 

PROPOGATE CARRY 

LOOP IF MORE REGISTERS IN SET 



; SIGNAL SUCCESS ON RETURN 



( 
( 
( 

€ 

i 
i 
i 
i 
i 
i 



TSEMT T/S EMT PROCESSOR MACRO V05. 04 Friday 18~Dec-S7 07:56 Page 23-2 
GETUMR — Allocate Unibus map regi£;ter 

115 004770 000207 RETURN 



i 

i 
I 
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1 
2 
3 
4 
5 

7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
2o 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



SBTTL FREUMR — V-ree a Unibus map register 



004772 005761 
004776 001464 



005000 010146 

005002 010246 

005004 010346 

005006 010446 

005010 010546 



005012 016104 
005016 005064 
005022 005061 



005026 016405 OOOOOOG 

005032 

005040 012702 OOOOOOC 

005044 000406 

005046 016200 OOOOOOG 

005052 002001 

005054 005400 

005056 020005 

005060 101410 

005062 010203 

005064 016202 0000000 

005070 001366 

005072 

005100 000416 



FREUMR is called to free a unibus map register set associated with an 
I/O request. 

If there is an I/D request uaiting for a free UMR set and the set being 
freed is large enough for the waiting request, the request is removed 
from the wait list and is started. 



Inputs; 
Ri = Address of I/O queue element that is being freed. 

See if there is a UMR associated with this request. 



OOOOOOG 


FREUMR: 


TST 
BEQ 




Q. UMRX<R1) 
9* 




i This 


I/O 


queue does have? a 






MOV 




Rl, -<SP) 






MOV 




R2, -(SP) 






MOV 




R3, -<SP) 






MOV 




R4, -(SP) 






MOV 




R5, -(SP) 




} Free 


the 


UMR 




OOOOOOG 




MOV 




Q. UMRX(R1),R4 


OOOOOOG 




CLR 




UM*I0Q(R4) 


OOOOOOG 




CLR 




Q. UMRX(Rl) 



; IS THERE A UMR ASSOCIATED WITH THIS REQUEST? 
iBR IF NOT 



1$: 

2*: 
3*: 



GET ADDRESS OF UMR DESCRIPTOR BLOCK 

SAY THE UMR IS FREE 

SAY NO UMR ASSOCIATED WITH I/O REQUEST 

See if there is any I/O queue request waiting for a free UMR 
that could be satisfied with the UMR that is being freed. 

i GET SIZE OF UMR SET THAT IS BEING FREED 
; *« DISABLE ** 
>, R2 ; POINT TO HEAD OF WAIT LIST 

J GET # WORDS NEEDED BY THIS I/O REQUEST 

GET POSITIVE VALUE 

IS THE FREED UMR LARGE ENOUGH? 

BR IF YES 

SAVE ADDRESS OF THIS I/O REQUEST 

GET ADDRESS OF NEXT WAITING I/O REQUEST 

BR IF THERE IS ANOTHER 

«it ENABLE *« 

THERE ARE NO WAITING ENTRIES TO BE STARTED 

We found a waiting 1/0 queue entry that could be started by 

the UMR that has just been freed/ 

Remove I/O queue entry from wait list and try to start it. 



MOV 


UM«WDS(R4), 


R5 


DISABL 






MOV 


#<UMRWHD-Q. 


LI 


BR 


3* 




MOV 


Q. WCNT(R2). 


RO 


BGE 


2* 




NEG 


RO 




CMP 


RO, R5 




BLOS 


4* 




MOV 


R2, R3 




MOV 


Q. LINK(R2), 


R2 


BNE 


1* 




ENABL 






BR 


8* 





005102 016263 OOOOOOG OOOOOOG 4$: 

005110 

005116 010201 

005120 116102 OOOOOOG 

005124 004737 004470' 



MOV 

ENABL 

MOV 

MOVE 

CALL 



Q. LINK(R2), Q. LINK(R3) ; REMOVE I/O QUEUE ENTRY FROM WAIT LIST 

«■«• ENABLE ««• 

GET ADDRESS OF I/O QUEUE ENTRY TO Rl 
Get device index number 
We should be able to get a free UMR now 



R2, Rl 

Q. DEVX<R1),R2 

GETUMR 



TSEMT 
FREUMR 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
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005130 
005132 



005136 
005140 
005142 
005144 
005146 
005150 



103402 
004737 



012605 
012604 
012603 
012602 
012601 
000207 



002416 



CALL 
> F i 11 i & h e d 

&^: MOV 

MOV 
MOV 
MOV 
MOV 

9*: RETURN 



8* 

lOHANQ 



(SP)+, R5 
(SP)+, R4 
(SP)+, R3 
< SP ) +, R2 
<SP)+, Rl 



i Br if could not get UMR 

; Queue this request to the device handler 
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1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 



005152 032703 000001 
005156 001004 



005160 106513 

005162 005203 

005164 112600 

005166 000207 



005170 005303 
005172 106523 
005174 012600 
005176 105000 
005200 000300 
000207 



. BBTTL GETUCH — Get character from user's buffer 

GETUCH is called to get a character from the user's buffer. 

Inputs: 
R3 = Address of byte to be fetched. 

Outputs: 
RO = Byte we got. 
R3 ••= Incremented. 



GETUCH: BIT #1,R3 
BNE 1 $ 

Byte is on a word boundary 



MFPD 
INC 
MOVB 
RETURN 



(R3) 
R3 
<SP)+, RO 



Byte address is odd 



1*: 



DEC 


R3 


MFPD 


(R3) + 


MOV 


<SP)+, RO 


CLRB 


RO 


SWAB 


RO 


RETURN 





; GETTING ODD OR EVEN BYTE? 
; BR IF ODD 



i GET WORD CONTAINING BYTE 

; ADVANCE R3 

; RETURN BYTE IN RO 



; POINT TO START OF WORD WITH BYTE 
;GET WORD WITH BYTE 

; CLEAR LOW-ORDER BYTE 

i MOVE HIGH-ORDER BYTE TO LOW-ORDER 



TSEMT 


T/S EMT 


PROCESSOR 


PUTUCH - 


— Hove 


byte to user's 


1 
2 






3 






4 






5 






6 






7 






8 






9 






10 






11 






12 


005204 


032703 000001 


13 


005210 


001005 


14 






15 






16 






17 


005212 


106513 


18 


005214 


110016 


19 


005216 


106613 


20 


005220 


005203 


21 


005222 


000406 


22 






23 






24 






25 


005224 


005303 


26 


005226 


106513 


27 


005230 


000316 


28 


005232 


110016 


29 


005234 


000316 


30 


005236 


106623 


31 


005240 


000207 



MACRO 
buffer 
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. SBTTL PUTUCH — Hove byte to user's buffer 

PU1UCH is called to move a byte into the user's buffer. 

Inputs: 
RO = Byte to be stored. 
R3 = Address inhere byte is to be stored. 

Outputs: 
R3 = Incremented. 



i IS BYTE ADDRESS ODD OR EVEN? 
i BR IF ODD 



PUTUCH: 


BIT 


#1,R3 




BNE 


1* 


i Byte 


address 


is even. 




MFPD 


(R3) 




MOVE 


RO, <SP) 




MTPD 


<R3) 




INC 


R3 




BR 


2* 


i Byte 


address 


is odd. 


lli: 


DEC 


R3 




MFPD 


(R3) 




SWAB 


<SP) 




MOVE 


RO, <SP) 




SWAB 


(SP) 




MTPD 


<R3) + 


2*: 


RETURN 





;GET WORD WHERE BYTE IS TO BE STORED 
; PUT IN OUR BYTE 
; REPLACE WORD 
i INCREMENT R3 



i POINT TO WORD WITH BYTE 

; GET WORD WITH BYTE 

; GET BYTE TO LOW-ORDER 

> PUT IN NEW BYTE 

i REPOSITION 

i STORE BACK INTO USER 'S BUFFER 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



005242 010046 
005244 010246 



005246 020027 0000000 
005252 103407 



005254 113702 0000000 

005260 016202 0000000 

005264 072227 000003 

005270 000421 



005272 020027 0000000 
005276 103405 



005300 013702 0000000 
005304 062700 020000 
005310 000411 



005312 010002 

005314 000241 

005316 006002 

005320 072227 177773 

005324 042700 177700 

005330 062700 0000000 



005334 010261 
005340 010061 



OOOOOOG 
OOOOOOG 



. SBTTL SYBFAD — Set system buffer address in I/O queue entry 

SYBFAD is called to convert a buffer address in system space into an 
address that will be mapped through PAR 6. This address is stored 
into a specified I/O queue element. 

The buffer address may be in low physical memory (PAR through PAR 4)* 
in a mapped system overlay region (PAR 5)> or in the user context 
blt.ck (PAR 6). 

Inputs: 
RO = Physical address to be converted. 
Rl = Address of I/O queue entry to be set up. 

Outputs: 
Q. PAR(Rl) ?< Q. BUFF(Rl) btb set up. 



SYBFAD; MOV 
MOV 



RO, -(SP) 
R2, -(SP) 



Determine which region buffer is in. 



CMP 
BLO 



RO, #CXTBAS 
2* 



i Is buffer in job context block? 
; Br if not in context block 



Buffer is in job context block 



MOVB 


CORUSR, R2 


MOV 


LBASE(R2),R2 


ASH 


#3, R2 


BR 


9* 



iOet current job index number 

i Get base 256-word block number of context blk 

J Convert to 32-word block number 

; (Note: virtual address in RO already in PAR 6 



See if we are accessing a buffer in a system mapped region 



2*: 



CMP 
BLO 



RO, #VPAR5 
12* 



; Is buffer in a system mapped region? 
J Br if not 



Buffer is in a system mapped region 



MOV 


@#KPAR5, R2 


ADD 


#20000, RO 


BR 


9* 



i Set current mapping for kernel PAR 5 
iBias virtual address to PAR 6 region 



We are accessing a buffer stored in low physical memory (PAR 0-4) 

12«: MOV RO, R2 ; Get actual address 

; Convert to page number 



;Get byte-in-page to RO 
; Map through PAR 6 



MOV 


RO, R2 


CLC 




ROR 


R2 


ASH 


#-5, R2 


BIC 


#-'-C77, RO 


ADD 


#VPAR6, RO 



Store values into 1/0 qut^ue element 



9*: 



MOV 
MOV 

F i 1 1 j B h e d 



R2, Q. PAR(Rl) 
RO, Q. BUFF(Rl) 



iPage relocation bias 
i Buffer address 



€ 
I 

i 
i 
i 
< 
i 
t 
4 
i 
4 
I 
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SYBFAD — Set system buffer address in I/O queue entry 

59 ; 

59 005344 0.12602 MOV <SP)+,RP 

60 005346 012600 MOV (SP)+, RO 

61 005350 000207 RETURN 



TSEMT TVS EMT 
UACHKx — Check 

1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 

17 005352 
IS 005356 

19 005360 

20 005362 
21 

22 
23 
24 

25 005364 

26 005370 
27 

28 
29 
30 

31 005372 

32 005400 

33 005402 

34 005404 
35 

36 
37 

38 005406 

39 005410 

40 005412 
41 

42 
43 

44 005416 

45 005424 

46 005426 

47 005432 
48 

49 
50 

51 005434 

52 005436 

53 005442 

54 005446 

55 005452 

56 005454 

57 005456 



PROCESSOR 
validity of user 
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SBTTL UACHKx — Check validity of user address 



UACHKW and UACHKB are caJled to determine if an emt address is 

within the valid region of the current job. 

UACHKW also checks to see that the address is on a word boundary. 



Inputs: 
RO = Address to be checked (preserved) 
EMTPS = PS saved by EMT 
UHIMEM = Top address of job region 

Outputs: 
C-flag set on return if address is invalid. 

Check a word address 



032700 
001402 
000261 
000207 



000001 



020037 
101404 



032737 
001002 
000241 
000207 



010146 
010246 
113701 



032761 
001403 
020027 
103426 



010001 
072127 
042701 
016102 
001414 
000302 
042702 



UACHKW: BIT 
BEG 
SEC 
RETURN 



#1, RO 
UACHKB 



IS ADDRESS EVEN? 
BR IF YES 
SIGNAL ERROR 



OOOOOOG 



Check byte address 

See if address is in normal job region 
UACHKB: CMP RO, UHIMEM ; IS ADDRESS IN NORMAL JOB REGION 
BLOS 4* iBR IF YES 

Address is not in normal job region. 

Allow kernel-mode emt's to access all of memory 



OOOOOOG OOOOOOG 



4$: 



BIT 
BNE 
CLC 
RETURN 



#UMODE, EMTPS 
5* 



IS THIS A KERNEL MODE EMT? 

BR IF NOT 

SIGNAL SUCCESSFUL RETURN 



This is a usei — mode emt accessing a region above the normal top of job 



5*: 



OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 



MOV 
MOV 
MOVB 



R 1 , - < SP > 
R2, -(SP) 
CORUSR, Rl 



; GET CURRENT JOB INDEX NUMBER 

Allow KMON to access job context area 



B I T #* I NKMN, LSW4 < R 1 ) 

BEQ 2* 

CMP RO, #CXTEND 

BLO 1* 



IS KMON RUNNING? 

BR IF NOT 

IS ADDRESS IN JOB CONTEXT REGION? 

BR IF YES 



>*: 



177764 
177761 
OOOOOOG 



177600 



See if there are any associated shared run-time systems 

; GET ADDRESS BEING CHECKED 

; CONVERT ADDRESS TO 2 * PAR REGION # 

IS THAT REGION MAPPED TO SHARED RUN-TIME? 

BR IF NOT 

GET PAGE LENGTH TO LOW-ORDER BYTE 

GET # 64-BYTE BLOCKS USED IN PAR REGION 



MOV 


RO, Rl 


ASH 


#-12. , Rl 


BIC 


#"C16, Rl 


MOV 


RPDR(R1),R2 


BEQ 


3* 


SWAB 


R2 


BIC 


#'X177, R2 



TSEMT 


T/S EHT 


PRCCESB 


OR 


UACHKx - 


— Check 


va 1 i d i t 


y of use 


58 


005462 


005202 




59 


005464 


072227 


000006 


60 


005470 


005302 




61 


005472 


072127 


000014 


62 


005476 


060201 




63 


005500 


020001 




64 


005502 


101402 




65 








66 








67 








6S 


005504 


000261 




69 


005506 


000401 




70 








71 








72 








73 


005510 


000241 




74 








75 








76 








77 


005512 


012602 




78 


005514 


01260.1 




79 


005516 


000207 




80 








81 








82 








83 








84 








85 








86 








87 








88 








89 








90 








91 








92 








93 








94 








95 


005520 


004737 


005352' 


96 


005524 


103405 




97 


005526 


000207 




98 








99 


005530 


004737 


005364' 


100 


005534 


103401 




101 


005536 


000207 




102 








103 








104 








105 


005540 


012700 


177766 


106 


005544 


000137 


004036 ' 
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INC 


R2 


ASH 


#6. R2 


DEC 


R2 


ASH 


#12. ,R1 


ADD 


R2, Rl 


CMP 


RO, Rl 


BLOS 


1* 



AridresB is invalid 



31i: SEC 




BR 


9* 


; AddT^pss is valid 


1$: CLC 




j Finished 




9*: MOV 


(SP)+, R2 


MOV 


<SP)+, Rl 


RETURN 




. SBTTL 


VALADx - 



# IS OFFSET BY 1 

CONVERT TO # BYTES 

AVOID ADDRESS OVERFLOW AT TOP OF MEMORY 

GET ADDRESS OF BASE OF PAR REGION 

GET ADDRESS OF LAST BYTE IN PAR REGION 

IS OUR ADDRESS IN MAPPED REGION? 

BR IF YES 



SIGNAL ERROR ON RETURN 



; SIGNAL SUCCESS ON RETURN 



Validate user address 



VALADW and VALADB are called to validate an address provided as 
an EMT argument. If the address is invalid, these routines do not 
return but rather produce a fatal EMT error. 
VALADW checks to see that the address is even. 

Inputs: 
RO = Address to be checked (preserved) 
EMTPS = PS saved by EMT 

Outputs: 
A fata EMT error is produced if the address is invalid. 



VALADW: CALL 
BCS 
RETURN 



VALADB : 



CALL 

BCS 

RETURN 



UACHKW 
BADAD 



UACHKB 
BADAD 



CHECK WORD ADDRESS 
BR IF INVALID 
ADDRESS IS OK 

; CHECK BYTE ADDRESS 
i BR IF INVALID 



Invalid address — Give fatal emt error 
BADAD: MOV #-12, RO ; GIVE FATAL EMT ERROR 



MOV 
JMP 



#-12, RO 
SETERR 
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2 






3 






4 






5 






6 






7 






8 






9 005550 


010346 




10 005552 


013703 


OOOOOOG 


U 005556 






12 005564 


105763 


OOOOOOG 


13 005570 


001407 




14 005572 


012700 


0000000 


15 005576 


004737 


0000000 


16 005602 


004737 


0000000 


17 005606 


000763 




IS 005610 






19 005616 


012603 




20 005620 


000207 




21 






22 






23 






24 






25 






26 






27 005622 


010146 




28 005624 


113701 


ooooooe 


29 005630 






30 005636 


105761 


OOOOOOG 


31 005642 


001405 




32 005644 


012700 


OOOOOOG 


33 005650 


004737 


OOOOOOG 


34 005654 


000765 




35 






36 






37 






38 005656 






39 005664 


012601 




40 005666 


000207 




41 






42 






43 






44 






45 






46 005670 


005737 


OOOOOOG 


47 005674 


001752 




48 005676 


010246 




49 005700 


010346 




50 005702 


013703 


OOOOOOG 


51 005706 


032763 


OOOOOOG OOOOOOG 


52 005714 


001406 




53 005716 


016302 


OOOOOOG 


54 005722 


042702 


177701 


55 005726 


004737 


006006 ' 


56 005732 


012603 




57 005734 


012602 





. S13TTL IOWA IT 



Wait for I/O to finish 



lOWAIT is called to suspend user execution until all I/O on the 
current channel is finished. 



Inputs: 
CHWADR = Address of current channel ue are waiting on. 



lOWAIT: 


MOV 


R3. -<SP) 




MOV 


CHNADR, R3 


1*: 


DISABL 






TSTB 


C. NUMQ(R3) 




BEQ 


2* 




MOV 


#S*IOWT, RO 




CALL 


QNSPND 




CALL 


CHKABT 




BR 


1* 


2*: 


EWABL 






MOV 


(SP)+, R3 




RETURN 






. SBTTL 


lOSTOP — 



GET ADDRESS OF CHANNEL 
« DISABLE INTERRUPTS 

# ANY ACTIVE I/O REQUESTS ON CHANNEL? 

# BR IF NOT — ALL I/O IS FINISHED 

# SAY WE ARE WAITING FOR I/O TO FINSIH 
ENQUEUE FOR I/O WAIT (ENABLE) 

WERE WE ABORTED WHILE ASLEEP? 
GO TRY AGAIN 



Wait for all of job's I/O to finish 



lOSTOP suspends execution of the current job until all of its 
I/O is completed. 



lOSTOP: MOV 
MOVE 

1"$: DISABL 

TSTB 
BEQ 
MOV 
CALL 
BR 



R 1 , - ( SP ) 
CORUSR, Rl 

LIOCNT(Rl) 
2* 

#S*IOWT, RO 
QNSPND 
1* 



All I/O is finished 



ENABL 

MOV 

RETURN 



GET JOB INDEX # 

*■»« DISABLE «•** 

IS THERE ANY I/O ACTIVE FOR JOB? 

BR IF NOT 

SUSPEND JOB TILL I/O FINISHES 

NOW GO SEE IF IT HAS COMPLETED 



** ENABLE «« 



<SP)+, Rl 



.SBTTL lOHALT — Abort all I/O for a job 
Process . ABTIO EMT 



i CHECK TO SEE IF 10 ABORT WAS CHOSEN 
i BR IF 10 RUNDOWN WAS CHOSEN 
i Save registers 



ABTIO: TST lOABFL 

BEQ lOSTOP 

MOV R2, -<SP) 

MOV R3, -(SP> 

MOV CHNADR,R3 i Get address of channel status word 

BIT #CS*OPN, C. CSW<R3)iSee if channel is open 

BEQ 1* i Br if channel is not open 

MOV C. CSW<R3),R2 > Get channel status word 

BIC #"C76, R2 ;Ma5k channel device index number 

CALL DVSTOP i Stop I/O to this device 

1*: MOV <SP)+, R3 ; Restore registers 

MOV < SP ) +, R2 



c 
I 
I 
< 
I 
I 
i 
i 

i 
i 
i 
I 
€ 
I 
4 
i 

i 
I 
c 
i 
C 
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58 


005736 


000137 


001110' 


59 








60 








61 








62 








63 








64 








65 








66 


005742 


005737 


OOOOOOG 


67 


005746 


001725 




68 


005750 


010246 




69 


005752 


010346 




70 








71 








72 








73 


005754 


004737 


006626 ' 


74 








75 








76 








77 


005760 


013702 


ooooooe 


78 


005764 


005003 




79 


005766 


004737 


006006 ' 


SO 


005772 


162702 


000002 


81 


005776 


002373 




82 


006000 


012603 




83 


006002 


012602 




84 


006004 


000207 





JMP 



EMTXIT 



; Finished 



lOHALT is called to abort ail I/O operations for a particular job. 



Inputs; 
Fil - Job index number. 



lOHALT: TST 

MOV 
MOV 



lOABFL 
lOSTOP 
R2, -<SP) 
R3, -(SP) 



i CHECK TO SEE IF 10 ABORT WAS CHOSEN 
;BR IF 10 RUNDOWN WAS CHOSEN 



Cancel any pending . TIMIO entries for this job 

CALL CANIOT ; Cancel any pending .TIMIO entries for job 

Now call handler abort entry points 

GET INDEX # OF LAST DEVICE 
Clear channel address pointer 
1*: CALL DVSTOP ; STOP I/O ON THAT DEVICE FOR THIS JOB 

GET NEXT DEVICE INDEX NUMBER 
BR IF MORE DEVICES 



MOV 


NUMDEV, R2 


CLR 


R3 


CALL 


DVSTOP 


SUB 


#2/ R2 


BGE 


1* 


MOV 


<SP)+, R3 


MOV 


<SP)+, R2 


RETURN 





TSEMT 


T/S EMT 


PROCESE 


OR 


HACRO VO 


DVSTOP 

1 
2 
3 


— Abort 


.1/0 for 


a device S< job 










4 










5 










6 










7 










8 










9 










10 










11 










12 










13 










14 


006006 


010346 






15 


006010 


010446 






16 


006012 


010546 






17 


006014 


013746 


OOOOOOG 




18 










19 










20 










21 


006020 


026227 


OOOOOOG 


000004 


22 


006026 


101532 






23 










24 










25 










26 


006030 


012700 


006314' 




27 


006034 


004737 


OOOOOOG 




28 


006040 


0000000 






29 


006042 


010305 






30 










31 










32 










33 


006044 


016203 


0000000 




34 


006050 


001402 






35 


006052 


010337 


0000000 




36 


006056 


016203 


0000000 


? 


37 










38 










39 










40 










41 










42 


006062 


012763 


100000 


177776 


43 


006070 


005723 






44 










45 










46 










47 










48 


006072 


032762 


0000000 


OOOOOOG 


49 


006100 


001015 






50 


006102 


011304 






51 


006104 


001430 






52 


006106 


116400 


ooooooc 




53 


006112 


006300 






54 


006114 


020001 






55 


006116 


00 1 02;:< 






56 


006120 


016400 


ooooooc 




57 


006124 


001403 
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. SDTTL DVSTOP — Abort I/O for a device & job 



DVSTOP is called to abort all I/O requests for a particular job 
that are pending for a particular device. 

The abort entry point for the device handler is called if the 
current queue entry belongs to the specified job or if the abort 
flag is set for the handler. 

Inputs; 
Rl = Index number of job whose I/O is to be aborted. 
R2 = Device index number of device to be serviced. 
R3 = Address of channel status word (for . ABTIO) or zero 



DVSTOP : MOV 
MOV 
MOV 
MOV 



R3, -(SP) 
R4, -<SP) 
R5, -(SP) 
@#KPAR5, -(SP> 



; Save PAR 5 in case we map to a handler 
Return immediately if this is a pseudo-device like LD, TTi etc. 



CMP 
BLOS 



HANENT(R2), #4 
7% 



; Is this a real device? 
; Br if not 



Enter system state while we perform I/O abort processing 

; Set exit address for system state 
; Enter system state 
iFork processing priority 
j Move channel status word 



MOV 


#7$, RO 


CALL 


ENSYS 


. WORD 


FP*IOA 


MOV 


R3, R5 



8$: 



Set up pointer to handler. 

MOV HANPAR(R2),R3 

BE(3 8* 

MOV R3, @#KPAR5 

MOV HANENT(R2),R3 



; Is this a mapped handler? 

j Br if not 

; Map PAR 5 to the handler 

j Get pointer to L(3E cell in handler 



Hold the handler. 

This prevents new I/O from being started and prevents cleanup on 

current I/O request for handler. 

MOV #100000, -2 (R3) J Set handler-hold flag 

TST (R3)+ J Point to CQE cell in handler 

Call handler abort entry point if abort flag is set for handler 
or if current queue element belongs to job being aborted. 

BIT #DS$ABT, DVSTAT(R2); Is abort flag set for handler? 

BWE 1* ; Br if yes 

MOV (R3>,R4 i Get pointer to current queue element for hand 

BEQ 2* ;Br if none 

MOVB Q. JOB-Q. BLKN(R4),R0 ; Get job # from queue element 

ASL RO ; Convert to job index number 

CMP RO, Rl iDoes this element belong to job being aborted 

BWE 2* i Br if not 

MOV Q. CSW-(3. BLKW(R4),R0iGet address of Channel Status Word 

BEO 1$ iBr if none 



TSEMT 
DVSTOP • 

59 
59 
60 
61 
62 
63 
64 
65 
66 
67 
6S 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
SO 

ai 

82 

S3 

84 

05 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



T/S EMT 
— Abort 



PROCESSOR 
I/O for a 
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device S< job 



006126 052760 OOOOOOG OOOOOOG 



006134 
006136 
006140 
006142 
006144 
006146 
006152 
006154 
006156 
006160 
006162 
006164 



006166 
006170 
006172 
006176 
006200 
006204 
006206 
006210 
006212 
006214 
006216 
006224 
006226 
006232 
006234 
006240 
006244 
006250 
006252 
006260 
006264 
006270 



006272 
006276 
006300 
006302 
006306 



BIS 



#CS*ERR> C. CSW<R0); Say an error occurred on this operation 



010146 
010246 
010346 
010104 
006204 
162703 
011300 
060300 
004740 
012603 
012602 



011305 
001440 
016504 
001435 
116400 
006300 
020001 
001402 
010405 
000766 
016465 
001005 
011363 
001402 
010563 
162704 
016400 
001403 
052760 
004737 
005362 
000740 



006363 
100005 
010304 
005063 
004737 



Call handler abort entry point. 



1$: 



000006 



MOV 


Rl, -(SP) 


MOV 


R2, -<SP) 


MOV 


R3. -<SP) 


MOV 


R1,R4 


ASR 


R4 


SUB 


#6, R3 


MOV 


(R3),R0 


ADD 


R3, RO 


CALL 


~(R0) 


MOV 


<SP)+, R3 


MOV 


<SP)+, R2 


MOV 


<SP)+, Rl 



ooooooc 
ooooooc 



2$: 
3*: 



OOOOOOC ooooooc 4*: 
177776 



177776 

OOOOOOG 

OOOOOOG 



OOOOOOG OOOOOOG 
003032 ' 9* : 

OOOOOOG 



1 77774 



177774 
002570 ' 



Get job number 

Get in form handler expects 

Point to handler cell with interrupt entry 

Get offset to interrupt entry pt in handler 

Get abs address of interrupt entry point 

Call handler abort entry point 



Noiu remove any queue elements that belong to the job being aborted 
(But ignore the current queue element since it will be cleaned up 
by calling lOFIN) 

Get pointer to current queue element 
Br if there is none 

J R4 ; Is there another queue element in list? 
Br if not 

RO i Get job # from queue element 
Convert to job index number 

Does this element belong to job being aborted 
Br if yes 

Link to next queue element 
And go check it 

/ Q. LINK-Q. BLKN<R5) ; Remove element from list 
Br if this is not last element in list 
CQE — >LQE 

Br if queue is empty now 
Make LQE point to last queue element 
5«: SUB #Gl. BLKNi R4 ;Make R4 point to start of queue element 

Get address of channel block for this element 

Br if no associated channel 

i Set error flag in channel status 

Do I/O completion for this queue element 

Decrement pending I/O count for device 

See if there are more queue elements 

If handler finished I/O operation while being held* we must call 
cleanup routine for it. 

6$: ASL -4(R3) ;Did handler finish i/o while being held? 

; Br if not 

i Set up pointer to CQE cell in handler 
> Clear handler-hold flag 
i Do cleanup for handler 



MOV 


<R3).R5 i 


BEQ 


6* ; 


MOV 


Q. LINK~Q. BLKN<R5) 


BEO 


6* ; 


MOVB 


Q. JOB-Q. BLKIM<R4), 


ASL 


RO i 


CMP 


RO, Rl i 


BEQ 


4* ; 


MOV 


R4, R5 ; 


BR 


3« ; 


MOV 


Q. LINK-Q. BLKN<R4) 


BWE 


5$ ; 


MOV 


(R3),-2<R3) i 


BEQ 


5* ; 


MOV 


R5, -2<R3) i 


SUB 


#Q. BLKN, R4 ; 


MOV 


Q. CSW<R4),R0 } 


BEQ 


9* i 


BIS 


#CS*ERR,C. CSW<RO) 


CALL 


lOCMPL ; 


DEC 


HANI0C(R2) i 


BR 


3* i 



ASL 


-4(R3) 


BPL 


10* 


MOV 


R3, R4 


CLR 


-4(R3) 


CALL 


lOFIN 



Now exit from system state. 

This will transfer control to 7*. 



006312 000207 



10*: 



RETURN 



;Exit from system state — Go to 7* 
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115 
116 
117 

118 006314 

119 006320 

120 006322 

121 006324 

122 006326 



Finished aborting I/O for this device 



012637 
012605 
012604 
012603 
000207 



0000000 



7*: 



MOV 
MOV 
MOV 
MOV 
RETURN 



(SP)+, @#KPAR5 
<SP)+,R5 
<SP)+, R4 
<SP)+, R3 



; Restore PAR 5 mapping 
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3 










4 










5 










6 










7 










a 










9 










10 


006330 


010046 






11 


006332 


010146 






12 


006334 


010246 






13 


006336 


010346 






14 










15 










16 










17 


006340 


010502 






18 


006342 


06250r? 






19 


006344 


005725 






20 
21 

22 


006346 


001062 














23 










24 










25 


006350 


005762 


OOOOOOG 




26 


006354 


00 1 003 






27 


006356 


022525 






28 


006360 


000261 






29 


006362 


000514 






30 


006364 


004737 


004414' 


> 


31 


006370 


010162 


OOOOOOG 




32 


006374 


152761 


ooooooc 


OOOOOOG 


33 


006402 


012561 


OOOOOOG 




34 


006406 


012561 


OOOOOOG 




35 


006412 


016261 


OOOOOOG 


OOOOOOG 


36 


006420 


016261 


OOOOOOG 


OOOOOOG 


37 


006426 


010261 


OOOOOOG 




38 


006432 


062761 


OOOOOOG 


OOOOOOG 


39 


006440 


013761 


OOOOOOG 


OOOOOOG 


40 


006446 


016200 


OOOOOOG 




41 


006452 


042700 


177400 




42 


006456 


006300 






43 


006460 


110061 


OOOOOOG 




44 










45 










46 










47 


006464 








48 


006472 


013761 


OOOOOOG 


OOOOOOG 


49 


006500 


010137 


OOOOOOG 




50 


006504 








51 


006512 


000437 






52 










53 










54 










55 


006514 


016201 


OOOOOOG 


] 


56 


006520 


001416 






57 


006522 









. SBTTL lOTIMR — Process handler timeout requests 

lOTIMR is the routine called from device handlers to process I/O 
timer requests. Normally the .TIMID and . CTIMIO macros are used 
to call lOTIMR. 



Inputs: 
R5 =- Address of argument list generated by .TIMID or 



CTIMIO macros 



lOTIMR; MOV 
MOV 
MOV 
MOV 



RO, -<SP) 
R 1 , - < SP ) 
R2, ~(SP) 
R3, ~<SP) 



Determine if we are starting or canceling a timer request 



GET PTR TO CELL WITH OFFSET TO TIMER BLOCK 
GET ADDRESS OF TIMER BLOCK IN HANDLER 
IS THIS A . TIMID OR . CTIMIO REQUEST? 
BR IF REQUEST TO CANCEL TIMER 



This is a request to start a timer. 

Get a completion request queue entry and set up values in it. 



MOV 


R5, R2 


ADD 


<R5)+, R2 


TST 


<R5) + 


BNE 


lOTIMC 



4*: 



TST 

BNE 

CMP 

SEC 

BR 

CALL 

MOV 

BISB 

MOV 

MOV 

MOV 

MOV 

MOV 

ADD 

MOV 

MOV 

BIC 

ASL 

MOVE 



IT*RTN(R2) 

4* 

<R5)+, (R5> + 



Make sure there is a specified compl routine 
Br if compl routine address specified 
Skip over high & loui order time uiords 
Signal error on return 
Return 

Get a queue element <addr returned in Rl) 
Save ptr to queue element in handler block 
CQ*FLG(R1 ); Set flag saying .TIMID request 
Set high-order time value 
Set low-order time value 
IT*RTN<R2), CQ*RTN<R1); Set address of routine to call 
IT*SEQ<R2), CQ«R0(R1); Set sequence # to be passed in RO 
R2,CQ*R1<R1) ;Set address of cell to be cleared on call 
#IT*RTN>CQ*R1(R1) 

@#KPAR5. CQ*PA5<R1); Set PAR 5 mapping for compl routine 
IT«J0B<R2). RO iGet # of job to synch with 
#'^C377, RO J Clear all but job number 
RO i Convert to job index number 

RO, CQ*J0B(R1 ) iSet job number in compl queue entry 



IDTMXT 

GETRTQ 

Rl, IT*LNK(R2) 

#<QF*IOT!QF*SCR> 

(R5)+, CQ$H0T(R1) 

<R5)+, CQ*LOT(Ri> 



Link timer element into list of active requests 



DISABL 

MOV 

MOV 

ENABL 

BR 



i ** DISABLE ** 
MRKTHD, CQfLNK<Rl); Put new element at head of timer list 
R 1 , MRKTHD 

.1 *» ENABLE «■* 
lOTMCC ; FINISHED 



Cancel a timer request 

lOTIMC; MOV IT*LNK<R2.> , Rl 
BEG 3* 
DISABL 



i Get address of queue element used for request 
i Inval id if zero 
; *^«- DISABLE «» 
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58 006530 

59 006534 

60 006540 

61 006542 

62 006546 

63 006550 

64 006556 

65 006560 

66 006562 

67 006570 

68 006574 

69 006600 

70 006606 

71 006612 
72 

73 
74 

75 006614 

76 006616 

77 006620 

78 006622 

79 006624 



012703 
026301 
001410 
016303 



00026 1 
000415 
016163 
005062 
005062 

004737 
000241 



012603 
012602 
012601 
012600 
000205 



OOOOOOC 
OOOOOOG 

0000000 



1*: 



3*: 

OOOOOOG OOOOOOG 2*: 

OOOOOOG 

OOOOOOG 



MOV 
CMP 
BEQ 
MOV 
BNE 
ENABL 
SEC 
BR 
MOV 
CLR 
CLR 
ENABL 
CALL 
IDTMCC: CLC 



#MRKTHD-CQ*LNK, R3; FAKE POINTER TO QUEUE HEAD 



CQ*LNK(R3) 

2* 

CQ*LNK<R3> 

1* 



Rl 



R3 



i IS ELEMENT WE WANT TO REMOVE NEXT IN LIST? 

; BR IF YES 

; CHAIN FORWARD TO NEXT ELEMENT 

;BR IF MORE TO CHECK 

i *» ENABLE «* 

; SIGNAL FAILURE TO FIND TIMER ELEMENT IN LIST 
lOTMXT 

CQ*LNK(R1),CQ*LNK(R3); REMOVE TIMER ELEMENT FROM LIST 
IT«RTN(R2) iSAY TIMER BLOCK IS NOW FREE 
IT$LNK<R2) 

i *« ENABLE ** 
QFREE i Free the timer queue element 

i Return with C-flag cleared 



Finished — Return to handler 



lOTMXT: MOV 
MOV 
MOV 
MOV 
RTS 



<SP)+, R3 
<SP)+, R2 
(SP)+, Rl 
<SP)+, RO 
R5 



TSEMT 
CANIOT ■■ 

1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

wXSl. 

33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 



T/S EMT PROCESSOR MACRO V05. 04 Friday lS-Dec~S7 07:56 
- Cancel all .TIMID requetts for a job 



Page 32 



006626 
006630 
006632 



006636 
006642 
006650 
006654 
006656 
006664 
006666 
006672 
006674 
006676 



006700 
006706 
006714 
006720 
006722 
006730 
006732 
006734 
006736 
006742 
006744 



006746 
006754 
006760 
006762 
006764 



. SBTTL CANIOT -- Cancel all .TIMID requests for a job 
CANIOT is called to cancel all pending .TIMID requests for a job, 



Inputs: 
Rl = Index number of job. 



010446 
013746 



OOOOOOG 



CANIOT: MOV 
MOV 

MOV 



R2, -<SP) 
R4, -(SP) 
@#KPAR5, ~(SP) 



; Save current PAR 5 mapping 
Search through pending queue looking for requests belonging to this job 



012704 OOOOOOC 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 



016402 
001434 
132762 
001403 
120162 
001402 
010204 
000764 



1*: 

2*: 



3$: 



MOV 

DISABL 

MOV 

BEQ 

BITB 

BEQ 

CMPB 

BEG 

MOV 

BR 



#MRKTHD-CQ*LNK> R4 ; Get dummy pointer to queue head 

.: #* Disable interrupts ** 
CQ*LNK<R4), R2 ; ; ; Get address of next pending entry 
4* iiiBr if hit end of list 

#QF*IOT, CQ*FLG(R2); ; > Is this entry for a .TIMID? 



3* 

Rl, CQ«J0B<R2) 

5* 

R2, R4 

2« 



; Br if not 

; Is this entry for our job? 

i Br if yes 

; Link to next entry 

; Go check it 



We found an entry for this job 



016264 OOOOOOG OOOOOOG 5*: 
OOOOOOG 
OOOOOOG OOOOOOG 



016200 
00 1 404 
016237 
005010 
010104 
010201 
004737 
010401 
000734 



6*: 



004222 ' 



MOV 

ENABL 

MOV 

BEQ 

MOV 

CLR 

MOV 

MOV 

CALL 

MOV 

BR 



CQ*LNK(R2), CQ*LNK<R4) J > i Remove entry from linked list 

; ** Enable interrupts ** 
CQ*R1(R2),R0 ;Get addr of cell in handler to be cleared 
6* ; Br if nothing to clear 

CQ*PA5(R2), e#KPAR5i Set up PAR 5 mapping for the handler 
(RO) 
Rl, R4 
R2, Rl 
QFREE 
R4, Rl 
1* 



i Clear the cell in the handler 

/Save the job index number 

;Get address of queue element to Rl 

/Free the queue element 

; Get back job index number 

/See if there are more entries to free 



F i n i B h e d 



012637 OOOOOOG 

012604 

012602 

000207 



4*: 
9*: 



ENABL 

MOV 

MOV 

MOV 

RETURN 



<SP>+/ @#KPAR5 
(SP)+/ R4 
(SP)+, R2 



; **• Enable interrupts ** 
/Restore PAR 5 mapping 



Dummy subroutine called by handlers trying to do error logginq. 
Return immediately. 



006766 000207 



ERRLOG: RETURN 



i 

c 

I 

I 

i 

I 

I 

I 

4 

I 
i 

i 

€ 
I 

i 
i 
i 
i 
i 



( 
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c 



. SBTTL SETHAN 



Update running copy of device handler 



4 








5 








6 








7 


006770 


013704 


000004G 


S 


006774 


016402 


0000000 


9 


007000 


162702 


000022 


10 


007004 


020227 


001000 


11 


007010 


101402 




12 


007012 


012702 


001000 


13 


007016 


006202 




14 


007020 


016401 


0000000 


15 


007024 


016400 


0000000 


16 


007030 


O0140;3 




17 


007032 


010037 


OOOOOOG 


18 


007036 


013703 


0000060 


19 


007042 






20 


007050 


005711 




21 


007052 


001012 




22 


007054 


162701 


000006 


23 


007060 


106523 




24 


007062 


012621 




25 


007064 


077203 




26 


007066 






27 


007074 


000137 


001110' 


28 








29 








30 








31 


007100 






32 


007106 


005000 




33 


007110 


000137 


004036 ' 



SETHAN is th 
handler afte 
If the handl 



e EMT used by kmon to update the running copy of a device 

r a SET command has been done. 

er is active* an error return occurs. 



SETHAN: 



1*: 



4*: 



?*: 



MOV 

MOV 

SUB 

CMP 

BLOS 

MOV 

ASR 

MOV 

MOV 

BEO 

MOV 

MOV 

DISABL 

TST 

BNE 

SUB 

MFPD 

MOV 

SOB 

ENABL 

JMP 



EMTBLK+4, R4 

HANSIZ(R4)>R2 

#18. , R2 

R2, #1000 

1* 

#1000, R2 

R2 

HANENT<R4), Rl 

HANPAR<R4), RO 

4* 

RO, @#KPAR5 

EMTBLK+6, R3 

(Rl) 

3* 

#6, Rl 

(R3) + 

<SP)+, <R1)+ 



EMTXIT 



; GET DEVICE TABLE INDEX FOR HANDLER 

i GET SIZE OF HANDLER 

; DON'T MODIFY LAST 9 WORDS OF HANDLER <.DREND TABLE) 

;MAX CODE MODIFIED IS 1000 

;BR IF HANDLER IS SMALLER 

; CONVERT # BYTES TO # WORDS 

GET ADDRESS OF HANDLER ENTRY POINT 

IS THIS A MAPPED HANDLER? 

BR IF NOT 

MAP PAR 5 TO THE HANDLER 

GET ADDRESS OF BUFFER IN KMON WITH NEW CODE 

*** DISABLE **«■ 

IS THE HANDLER ACTIVE NOW? 

BR IF YES — GIVE ERROR RETURN 

POINT TO START OF HANDLER IN MEMORY 

GET WORD FROM KMON BUFFER 

MOVE OVER OLD HANDLER CODE 

MOVE ALL OF NEW CODE 

*•«■ ENABLE #* 
; SUCCESSFUL EXIT 



Error 



Handler is active now. 



3*: 



ENABL 

CLR 

JMP 



RO 
SETERR 



i •«•«• ENABLE ** 

; RETURN ERROR CODE O 

; ERROR EXIT 



007114 
007116 
007120 
007122 



010246 
1 0446 
010546 
01050r2 



007124 
007130 
007134 



012700 
004737 
OOOOOOG 
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2 
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4 
5 
6 
7 
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9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
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007136 
007144 
007152 
007156 
007162 



007166 
007172 
007174 
007176 
007200 
007202 
007204 
007206 



016237 
016237 
012704 
066204 
012705 



016200 
006200 
001403 
012425 
012425 
077003 
103001 
011415 



007210 000207 



007212 
007214 
007216 
007220 



012605 
012604 
012602 
000207 



SBTTL MIOMWT 



Mapped I/O move data to system buffer 



MIOMWT is called when doing a write to a device that requires its I/O 

to be mapped through a system buffer. 

MIOMWT moves the data from the user's buffer into a system buffer. 



Inputs: 
R5 = Address of mapped I/O control block. 



MIOMWT: MOV 
MOV 
MOV 
MOV 



R2, -(SP) 
R4, -<SP) 
R5, -(SP) 
R5, R2 



Get address of mapped I/O control block 



Enter system state so that we can use PARS and PAR6 to map to the system 
and user buffers. 



007212' 
OOOOOOG 



MOV 
CALL 
. WORD 



#1*, RO 

ENSYS 

FP«MOV 



; Go to 1* on exit from system state 
j Enter system state 
i Fork priority 



We are now running in system state on the interrupt stack. 

Kernel PAR 5 and PAR6 are free. 
Set up buffer pointers. 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 



OOOOOOG 
OOOOOOG 



MOV 
MOV 
MOV 
ADD 
MOV 



MI$UBP(R2)> ©#KPAR5 ; Set up PAR base for user's buffer 
MI*SBP(R2). e#KPAR6 ; Set up PAR base for system buffer 



#VPAR5, R4 
MI*UB0(R2),R4 
#VPAR6, R5 



Get virtual address base for user's buffer 
Add offset within 64-byte block region 
Get virtual address base for system buffer 



Get number of words to move and do the transfer 



3*: 



MOV MI*CWC<R2),R0 

ASR RO 

BEQ 3* 

MOV (R4)+, <R5)^ 

MOV (R4)+, <R5)-*- 

SOB RO, 2$ 

BCC 4* 

MOV (R4), <R5) 



Get number of words to move 

Get number of doublewords 

Br if less than 2 words to move 

Move a word 

Move a second word 

Loop if more doublewords to move 

Br if no odd word at end to move 

Move the last word 



Finished moving data. 

Exit from system state <go to 1*> 



4$: RETURN 

F i n i li h e d 

1$: 



iExit from system state 



MOV 


<SP)+, R5 


MOV 


(SP}+, R4 


MOV 


< SP ) +, R2 


RETURN 





TSEMT 
M.TOMRD 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 



007226 
007230 



007232 
007236 
007242 



007244 
007252 
007260 
007264 
007270 



007274 
007300 
007302 
007304 
007306 
007310 
007312 
007314 



007320 
007322 
007324 
007326 



010246 
010446 
010546 
010502 



012700 
004737 
OOOOOOC 



016237 
016237 
012704 
066204 
012705 



016200 
006200 
001403 
012524 
012524 
077003 
103001 
011514 



007316 000207 



012605 
012604 
012602 
000207 



. SBTTL MIOMRD — Mapped I/O move data to user's buffer 

MIOMRD is called when doing a read from a device that requires its I/O 

to be mapped through a system buffer. 

MIOMRD moves the data from the system buffer into the user's buffer. 

Inputs: 
R5 - Address of mapped I/O control block. 



MIOMRD: MOV 
MOV 
MOV 
MOV 



R2, -<SP> 
R4, -(SP) 
R5, -<SP) 
R5. R2 



j Get address of mapped I/O control block 



007320 ' 
0000000 



MOV 


#1*, RO 


CALL 


ENSYS 


. WORD 


FP«MOV 



0000000 
0000000 
0000000 
OOOOOOG 
OOOOOOG 



OOOOOOG 



OOOOOOG 
OOOOOOG 



2*: 



3*: 



Enter system state so that we can use PARS and PAR6 to map to the system 
and user buffers. 

; Go to 1* on exit from system state 
/Enter system state 
> Fork priority 

We are now running in system state on the interrupt stack. 
Kernel PARS and PAR6 arp free. 
Set up buffer pointers. 

MOV MI*UBP(R2). @#KPAR5 i Set up PAR base for user's buffer 

MOV MI*SBP<R2), e#KPAR6 ; Set up PAR base for system buffer 

MOV #VPAR5* R4 ; Get virtual address base for user's buffer 

ADD MI*UB0(R2), R4 ;Add offset within 64-byte block region 

MOV #VPAR6* R5 ; Get virtual address base for system buffer 

Get number of words to move and do the transfer 

i Get number of words to move 

i Get number of doublewords 

; Br if less than 2 words to move 

i Move a word 

; Move a second word 

; Loop if more doublewords to move 

> Br if no odd word at end to move 

; Move the last word 

Finished moving data. 

Exit from system state <go to 1*) 

iExit from system state 



MOV 


MI*CWC(R2),R0 


ASR 


RO 


BEQ 


3* 


MOV 


<R5)+, (R4) + 


MOV 


(R5)+, <R4) + 


SOB 


RO, 2* 


BCC 


4* 


MOV 


<R5), (R4) 



4ie: RETURN 




; Finished 




1 ^ : MOV 


<SP)+, R5 


MOV 


(SP)+, R4 


MOV 


<SP)+, R2 


RETURN 





i 
i 
< 
i 

i 

i 
i 
i 
< 
i 
i 
i 
< 
i 
I 
i 
< 
i 

< 

i 
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1 

2 

3 

4 

5 

6 007330 

7 

8 

9 
10 007330 012637 0000000 
11 
12 
13 
14 007334 000002 



. SBTTL HANXIT — Exit from a mapped handler 



i HANXIT is jumped to when a mapped handler performs a RTI to exit 

i from an interrupt. 

> 

HANXri: 

; Restore PAR 5 mapping 

i 

MOV <SP)+, g#KPAR5 i Restore PAR 5 mapping 

> 

i Finished 

RTI ; Do the real interrupt exit 



TSEMT T/S EMT PROCESSOR MACRO V05. 04 Friday iS-Dec-97 07:56 Page 37 
- Device handler mappinti routinej; - 



. SBTTL - Device handler mapping routines 



2 

3 

4 

5 

6 

7 

8 

9 

10 

1.1 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 
oo 

34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



007336 
007342 
007346 
007350 
007352 
007354 



007356 
007362 



007364 
007370 
007374 
007400 
007404 
007406 
007412 
007416 



007420 
007424 
007430 
007434 
007436 



162706 
016616 
010246 
010346 
012546 
005002 



005765 
001416 



166516 
016503 
166503 
072327 
060316 
116503 
073227 
000406 



162716 
016503 
073227 
062603 
00550;2 



The folloujing routines provide XM support for device handlers. 
Kernel-mode PAR 6 is used to access the user's data area. 

. SBTTL MPPHY — Convert mapped address to physical address 

Convert a mapped address to a physical address. 

Inputs: 
R5 = Address of Q. BUFF tell in I/O queue entry. 
Q. BUFF = Address relative to Q. PAR 
Q. PAR = Address offset. 

Q. UMRX = 0==>No Unibus mapping needed; non-zero==>Do unibus mapping 
0. UMPB = Original value of Q. BUFF when I/O was queued 
0. UMPP = Original value of Q. PAR when I/O was queued 
0. UMVB = Index number of base Unibus map register for transfer 

Outputs: 
(Sf^) ■-■ Low-order 16-~bits of physical address. 
2<SP)= High-order 6-bits of physical address (in bits 4-9). 
R5 = Address of Q. WCNT in queue element. 



000004 
000004 



MPPHY: SUB #4, SP 

MOV 4(SP), <SP) 

MOV R2, ~<SP) 

MOV R3, -<SP> 

MOV (R5)+>-<SP) 

CLR R2 



i MAKE ROOM ON STACK FOR RESULT WORDS 
;MOVE UP RETURN ADDRESS ON STACK 



i GET VIRTUAL ADDRESS FROM Q. BUFF 

;WE WILL FORM PHYSICAL ADDRESS IN R2-R3 



ooooooc 



ooooooc 
ooooooc 
ooooooc 

000006 

ooooooc 

000015 



0000000 

ooooooc 

000006 



Convert virtual address in I/O queue element into physical 
address and place in H2-R3. 

TST Q. UMRX-Q. WCNT<R5); IS UNIBUS MAPPING NEEDED? 

BEQ 1* 1 BR IF NOT 

We must do Unibus mapping for this I/O request. 

What we compute is not a physical address but is rather a 

virtual address within the Unibus address space. 

SUB Q. UMPB-Q. WCNT<R5), <SP) i Subtract original Q. BUFF value 

MOV Q. PAR-Q. WCNT<R5).R3 i Get current PAR offset <64-byte units) 

SUB Q. UMPP-Q. WCNT<R5),R3 ; Get # 64-byte blocks Q. PAR has been incr 

ASH #6. . R3 ; Convert to byte offset 

ADD R3, <SP) i Increment buffer address 

MOVB Q. UMVB-Q. WCNT(R5),R3 ; Get unibus register # 

ASHC #13. ,R2 ;* 8192. bytes per register 

BR 2* 

We are not doing Unibus mapping. Get 22-bit physical address to R2-R3. 

SUB #VPAR6, (SP) i REMOVE PAGE-6 BIAS 

MOV Q. PAR-Q. WCNT<R5). R3 ; GET RELOCATION BASE 

ASHC #6, R2 ; SHIFT R2-R3 LEFT 6 BITS 

215: ADD (SP)+, R3 i ADD (Q. BUFF) TO LOW ORDER 

ADC R2 i PRDPOGATE CARRY TO HIGH-ORDER 



1$: 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 



007440 
007444 
007450 
007454 
007456 



We have computed the address and it is in R2-R3. 
Position correctly and store into stack. 



072227 
010366 
010266 
012603 
012602 



000004 
000006 
000010 



007460 000207 



i POSITION HIGH-ORDER TO BITS 4-9 
i STORE LOW-ORDER VALUE 
; STORE HIGH-ORDER VALUE 



F'inished — Converted values are on stack beloui return address. 
RETURN 



ASH 


#4, R2 


MOV 


R3, 6(SP) 


MOV 


R2, 10<SP.> 


MOV 


(SP)+, R3 


MOV 


(SP)+, R2 



I 

I 
( 

i 

i 
i 

i 

i 
i 
i 
i 

I < 

* 
i 
i 
i 
i 
I 



TSEMT 
PTBYT 



T/S EMT PRCCESSQR MACRO V05. 04 Friday lS--Dec-S7 07:56 Page 38 
~ Move byte to user's buffer 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 



00746^ 



007462 062704 OOOOOOC 



. SBTTL PTBYT — Move byte to user's buffer 

PTBYT is called to transfer a byte to the user's buffer area. 

Inputs: 
<'3P) -~ Byte to be tran&fered. 
R4 = Pointer to Q. BLKN in queue element 

Outputs: 
Byte is popped from stack. 
Q. BUFF is incremented. 

'TBYT: 

Make R4 point to Q. BUFF rather than 0. BLKN 

ADD #<Q. BUFF-Q. BLKN>, R4i MAKE R4 POINT TO Q. BUFF 

This request must be mapped through PAR 6. 

See if ute cross a page boundary. 



007466 032714 
007472 00140r> 



020000 



BIT #20000, <R4) 
BEQ 1* 



; DID WE CROSS A PAGE BOUNDARY? 

i BR IF NOT 



007474 
007502 



007506 
007514 
007520 
007522 



007530 
007534 
007542 



062764 
162714 



000200 
020000 



OOOOOOC 



013727 
000000 
016437 



1 1 6634 
013737 



0000000 
OOOOOOC OOOOOOG 



We crossed a page boundary. 
Increment Q. PAR and reset Q. BUFF 

ADD #200, G. PAR-Q, BUFF <R4) J ADVANCE PAGE NUMBER 
SUB #20000, <R4) ; RESET BUFFER POINTER 

Set up Kernel-mode PAR6 to access user's page. 

1$: DISABL i DISABLE INTERRUPTS 

MOV @#KPAR6, (PC)+ J SAVE CURRENT KPAR6 CONTENTS 

11*: .WORD ; CONTENTS OF KPAR6 

MOV Q, PAR-Q. BUFF <R4),@#KPAR6; MAP TO USER'S PAGE 



Move byte into the user's area 



000002 
007520 ' 



OOOOOOG 



MOVB 

MOV 

ENABL 



2<SP), €:(R4) + 
11*, e#KPAR6 



i MOVE BYTE INTO USER'S SPACE 
; RESTORE KPAR6 CONTENTS 
; ENABLE INTERRUPTS 



007550 005244 



007552 
007556 

007560 



162704 
012616 
000207 



OOOOOOC 



Increment buffer pointer 

INC ~(R4) ; INC Q. BUFF 

Fix up R4 and pop bytt* off stack. 

SUB #<Q. BUFF-Q. BLKN>, R4i MAKE R4 POINT TO Q. BLKN 

MOV <SP)+, <SP) iMOVE RETURN ADDRESS OVER DATA BYTE 

RETURN 



TSEMT 
GTBYT 
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i 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

23 
24 
25 
2o 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



007562 



007562 011646 



007564 062704 OOOOOOC 



007570 
007574 



031427 
001401^ 



020000 



007576 
007604 



007610 
007616 
007622 
007624 



007632 
007636 
007642 
007650 



062764 
162714 



000200 
020000 



OOOOOOC 



013727 
000000 
016437 



005066 
113466 
1 3737 



OOOOOOG 
OOOOOOC OOOOOOG 



000002 
000002 
007622 ' 



OOOOOOG 



007656 005244 



007660 
007664 



162704 
000207 



OOOOOOC 



. SBTTL GTBYT — Get byte from user's buffer 

GTBYT is called to acquire a byte from a user buffer. 

I n p u t s : 
R4 = Pointer to Q. BLKN in I/O queue element. 

Outputs: 
CSP) - Byte acquired. 
Q. BUF-F is incremented. 

GTBYT : 

Hake room for returned byte on stack. 

MOV <SP),-(SP) iMOVE DOWN RETURN ADDRESS 
Make R4 point to Q. BUFF 

ADD #<Q. BUFF-Q. BLKN>, R4i MAKE R4 POINT TO Q. BUFF 
This address needs to be mapped through PAR 6. 

See if we crossed a page boundary. 



BIT <R4), #20000 
BEQ 1* 



i DID ADDRESS CROSS A PAGE BOUNDARY? 
j BR IF NOT 



We have crossed a pape boundary. 
Increment Q. PAR and reset Q. BUFF 

ADD #200. 0. PAR~0. BUFF <R4); INCREMENT PAGE POINTER 
SUB #20000, <R4) PRESET BYTE-WITHIN-PAGE # 

Set up kernel-mode PAR6 to map to user's page 



1$: DISABL 

MOV @#KPAR6> (PC)+ 
11*: .WORD 



DISABLE INTERRUPTS 

SAVE CURRENT KPAR6 CONTENTS 

CONTENTS OF KPAR6 



MOV Q PAR-Q. BUFF (R4), @#KPAR6i MAP TO USER'S PAGE 
Move byte from user's buffer 



CLR 
MOVB 
MdV 
' ENABL 



2(SP) 

€!<R4)+, 2(SP> 
11*, S#KPAR6 



Increment buffer pointer 
INC -(R4) 



CLEAR BYTE AREA 
GET BYTE FROM USER'S AREA 
RESTORE KPAR6 CONTENTS 
ENABLE INTERRUPTS 



INCREMENT Q. BUFF 



Fix R4 and return with data byte on top of stack 



SUB 
RETURN 



#<Q. BUFF~Q. BLKN>, R4i MAKE R4 POINT TO Q. BLKN 
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1 
2 
3 
4 
5 
6 
7 

a 

9 
10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

2o 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

43 

49 

50 

51 

52 

53 

54 



007666 



007666 062704 OOOOOOC 



007672 031427 
007676 00140r> 



020000 



007700 
007706 



007712 
007720 
007724 
007726 



007734 
007740 
007746 



062764 
162714 



000200 
020000 



OOOOOOC 



013727 
000000 
016437 



016634 
013737 



0000000 
OOOOOOC OOOOOOG 



000002 
007724 ' 



OOOOOOG 



007754 062744 000002 



007760 
007764 
007766 



16270''-J 
012616 
000207 



OOOOOOC 



. SBTTL PTWRD — Move word to user's buffer 

PTWRD is called to move a word into a user buffer area. 

1 n p u 1 5 : 
<SP) --- Word to be moved to user's buffer. 
R4 - Pointer to Q. BLKW in queue element. 

Outputs: 
Data word is popped from stack. 
0. BUFF is incremented. 

PTWRD: 

Make R4 point to Q. BUFF" cell in queue element. 

ADD #<Q. BUFF~Q. BLKN>. R4; POINT TO 0. BUFF 

This address must be mapped through PAR 6. 

See if we crossed a pa^e boundary 



( 



i 
c 
i 



BIT (R4), #20000 
BEQ 1$ 



i DID WE CROSS A PAGE BOUNDARY? 
; BR IF NOT 



We crossed a page boundary 
Increment Q. PAR and reset Q. BUFF 

ADD #200, Q. PAR -Q. BUFF (R4); ADVANCE PAGE POINTER 

SUB #20000, (R4) i RESET BYTE-WITHIN-PAGE ADDRESS 

Set up kernel-mode PAR6 to map to user's page. 



1*: DISABL 

MOV @#KPAR6, (PC) + 
11*: .WORD 



DISABLE INTERRUPTS 

SAVE CURRENT KPAR6 CONTENTS 

CONTENTS OF KPAR6 



MOV Q, PAR-Q. BUFF <R4), @#KPAR6j MAP TO USER'S PAGE 
Move word into user's buffer. 



MOV 
MOV 
ENABL 



2(SP), @(R4) + 
11$, €l#KPAR6 



Advance buffer pointer 
ADD #2, -(R4) 



i MOVE WORD INTO USER'S BUFFER 
i RESTORE KPAR6 CONTENTS 
i ENABLE INTERRUPTS 



; ADVANCE Q. BUFF 



Fi.x R4 and pop data word from stack. 

SUB #<:q. BUFF~0. BLKN>, R4> MAKE R4 POINT TO Q. BLKN 

MOV ( SP ) +, ( SP ) ; POP DATA WORD — MOVE UP RETURN ADDRESS 

RETURN 
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SBTTL EXTPl 



External KPAR mapping routine for drivers 



3 






4 






5 






6 






7 






S 






9 






10 






11 






12 






13 






14 007770 






15 007770 


013746 


OOOOOOG 


16 007774 


010146 




17 007776 


010246 




18 010000 


012002 




19 010002 


060200 




20 010004 


010001 




21 010006 


005741 




22 






23 






24 






25 010010 


012746 




26 010012 


000207 




27 010014 


006202 




28 010016 


014146 




29 010020 


077202 




30 






31 






32 






33 010022 


012602 




34 010024 


060602 




35 010026 


005722 




36 010030 


010246 




37 010032 


011201 




38 010034 


014202 




39 010036 


016037 


177776 OOOOOOG 


40 




i 


41 




i 


42 






43 






44 






45 






46 






47 






48 






49 






50 010044 


004766 


000002 


51 010050 


011606 




52 010052 


005726 




53 010054 


012637 


OOOOOOG 


54 010060 


000200 





EXTPl is called from RMON offset 432 by device drivers wishing 
to map directly to the u&er's I/O buffer. It is initiated in the 
device driver by the foUouiing call: 

JSf? RO, @«P1EXT 

•WORD «instruction length> + 2 <for KPAR6>> 

'Cinstruc tion5> 

.WORD <neuj KPAR 6 mapping value> 
The drivers which use this routine are DD and DM. 



EXTPl: 



MOV 
MOV 
MOV 
MOV 
ADD 
MOV 
TST 



@#KPAR6, - 
R 1 , - < SP ) 
R2, -<SP) 
(R0)+, R2 
R2, RO 
RO, Rl 
-<R1) 



•<SP) 



par 6 contents 



Save kernal 

Save rl 

Save r2 

Get the length of 

Point to the code 

Copy return address 

Skip KPAR6 mapping value 



code <# bytes +2) 
beyond par value 



Put instructions and a return on the stack. 



1*: 



MOV 

RETURN 

ASR 

MOV 

SOB 



(PC)+, -(SP) 

R2 

- ( R 1 > , ~ < SP ) 



/Save return instruction on stack 
/Return instruction pushed to stack 
/Convert # bytes to # words 
/Push instructions and # bytes on stack 
; Continue until all saved 



Calculate a stack frame pointer and put it on the stack. 



The 



MOV 
ADD 
TST 
MOV 
MOV 
MOV 
MOV 

stac k 

SP — 



(SP)+, R2 

SP/ R2 

(R2) + 

R2/ ~<SP) 

<R2)/R1 

-(R2)/ R2 

-2<R0>, e#KPAR6 



/Get length of code <# bytes +2) 

/Calculate stack pointer to saved R2 

; Calculate stack frame pointer to saved Rl 

/Save stack frame pointer on top of stack 

/Restore rl prior to JSR 

/Restore r2 prior to JSR 

/Initialize KPAR6 mapping 



IS 



CALL 

MOV 

TST 

MOV 

RTS 



in the following configuration: 

stack frame pointer to saved Rl 

instructions 

RETURN 

saved R2 

saved Rl 

KPAR6 

saved RO 

2<SP) 

eSP/ SP 

(SP) + 

(SP)+/ @#KPAR6 

RO 



(pointed to by stack frame pointer on top of stack) 
< from JSR call ) 



/Call instructions saved on stack 
/Restore stack frame pointer 
/Skip over rl value 
/Restore kernal par 6 contents 
/Return to handler 
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1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

3S 

39 

40 



010062 01004v'j 
010064 010446 
010066 010504 



010070 004737 010126' 



010074 1.62702 OOOOOOG 

010100 005000 

010102 073027 000006 

010106 060102 

010110 005500 

010112 010001 

010114 072127 000004 



010120 012604 
010122 012600 
010124 000207 



. SBTTL CVTPHY — Convert a virtual address to a physical addr 

Convert a 16-bit virtual address within a job region into a full 
22-bit physical address. 

Inputs: 
RO = 16-bit virtual address within job region 
R5 = F*ointer to 3rd word of I/O queue element 

Outputs: 
Rl = High-order 6 bits of physical address (starting at bit 4) 
R2 - Low-order 16 bits of physical address 
C-flag is set on return if physical address is > 56Kb 



: MOV 


RO, ~(SP) 


MOV 


R4, -(SP) 


MOV 


R5, R4 



j Put I/O queue element pointer in R5 

Call RELOC to convert the virtual address into an address within the 
PAR6 region and get a bs&e offset for PAR6. 



CALL 



RELOC 



(»et user's par mapping value 



At this point: 

fU. = Mapping value to use to map Par6 to the area. 

R2 = Address within P3r6 region that specified mapped start of area. 

Strip par6 relocation bias 

Set up for shift 

Shift R0~R1 left 6 bits 

Get low-order physical address 

Propogate carry to high-order 

Return high-order part in Rl 

Align high bits starting at bit 4 



SUB 


#VPAR6, R2 


CLR 


RO 


ASHC 


#6, RO 


ADD 


R1,R2 


ADC 


RO 


MOV 


RO, Rl 


ASH 


#4, Rl 


Finished 




MOV 


(SP)+, R4 


MOV 


(SP)+, RO 


RETURN 
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SBTTL RELOC 



Mapping relocation calculation 



4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 



010126 



010126 
0101 30 
010134 



010136 
010140 
010142 
010146 



010150 
010156 
010162 
010164 



010172 
010176 
010204 



010212 
010214 
010220 
010222 
010224 



010230 
010232 



010346 
116401 
006301 



010003 
005002 
07 i 227 
006302 



013727 
000000 
016137 



016201 
013737 



005002 
071227 
060201 
010302 
062702 



012603 
000207 



ooooooc 



020000 



ooooooe 

0000000 0000000 



0000000 
010162' 



0000000 



000100 



0000000 



REi.OC is a subroutine u.ihich converts a 16-bit virtual address contained 
in RO into a PAR6 relocation value returned in Rl and PAR6 offset address 
returned in R2. 

I n p u t s : 
RO = Virtual address to be converted. 
R4 ■■- Pointer to 3rd word of Queue element. 

Outputs: 
Rl = PAR6 mapping relocation value. 
R2 = PAR6 offset <i.e. ^ address within PAR6 region) 

RELOC: 

Save reqisters. 



MOV R3, -(SP) 

MOVE Q. JOB-Q. BLK!\J<R4), Rl 

ASL Rl 



i Get job number from queue element 
; Convert to job index number 



RO contains the virtual address. Separate the par register number 
from the offset value to obtain the mapped address 



MOV RO, R3 

CLR R2 

DIV #20000, R2 

ASL R2 



i Save conversion address 

iClear high order bits 

i Separate page and offset pointer 

i Create word offset pointer 



User's mapping in job context is valid - map to job context. 



11*: 



D.TSABL 

MOV @#KPAR6, <PC)-i- 

. WORD 

MOV LCXPAR<R1),©#KPAR6 



j; Disable interrupts 
Save par6 contents 
Contains par6 contents 
Map through par6 



i i 
i > 



Obtain par mapping contents from job context region. 



MOV 
MOV 
ENABL 



CUPAR0(R2),R1 
11$, e#KPAR6 



; i Get the PAR value for the page 
; Restore par6 original contents 
i Enable interrupts 



i i 



Check for valid offset. 



CLR 
DIV 
ADD 
MOV 
ADD 



R2 

#100, R2 
R2, Rl 



#VPAR6, R2 

Restore registers and return. 

MOV (SP)+, R3 
RETURN 



iClear high order bits 

;Calc lowest 64-byte mapping offset 

; Adjust the PAR value accordingly 

i Move par offset into R2 

; Adjust to PAR6 virtual address 
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SDTTL BLKMV — Memory blocN move routine 



3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 


010234 






15 


010234 


1 0046 




16 


010236 


013746 


OOOOOOG 


17 


010242 


013746 


OOOOOOG 


18 


010246 


042702 


160000 


19 


010252 


052702 


120000 


20 


010256 


042704 


160000 


21 


010262 


052704 


140000 


22 








23 








24 








25 


010266 


020227 


130000 


26 


010272 


103404 




27 


010274 


162702 


010000 


28 


010300 


062701 


000100 


29 


010304 


020427 


1 50000 


30 


010310 


103404 




31 


010312 


162704 


010000 


32 


010316 


062703 


000100 


33 








34 








35 








36 


010322 


012700 


000400 


37 


010326 


020005 




38 


010330 


103401 




39 


010332 


010500 




40 








41 








42 








43 


010334 


160005 




44 


010336 


010137 


OOOOOOG 


45 


010342 


010337 


oooooos 


46 


010346 


005200 




47 


010350 


006200 




48 


010352 


103001 




49 


010354 


012224 




50 


010356 


012224 




51 


010360 


077003 




52 


010362 


005705 




53 


010364 


101340 




54 


010366 


012637 


OOOOOOG 


55 


010372 


012637 


OOOOOOG 


56 


010376 


012600 




57 


010400 


000207 





BLKMV is used by the VM handler to transfer data from one memory area 
to another. 

Inputs: 

Rl = input PAR value 

R2 = input buffer address 

R3 = output PAR value? 

R4 = output buffer address 

R5 = word count 



BLKMV: 



MOV RO, -(GP) 

MOV @#KPAR5, -<SP) 

MOV e#KPAR6, -<SP) 

BIC #160000, R2 

BIS #120000, R2 

BIC #160000, R4 

BIS #140000, R4 



; Save registers 
i Save kernel PAR 



5 & 6 mapping 



i Strip input buffer bias 

; Convert input buffer to PARS base 

i Strip output buffer bias 

; Convert output buffer to PAR6 base 



Convert base buffer offsets and PAR to allow block move. 



1*: 



CMP 


R2, #130000 


BLD 


2* 


SUB 


#10000, R2 


ADD 


#100, Rl 


CMP 


R4, #150000 


BLO 


3* 


SUB 


#10000, R4 


ADD 


#100, R3 



Move up to one block at a time. 



3*: 



MOV 


#256. , RO 


CMP 


RO, R5 


BLO 


5* 


MOV 


R5, RO 



Check input buffer address 
Br if belotu boundary 
Subtract 4K byte offset 
Adjust PAR value 
Check input buffer address 
Br if below boundary 
Subtract 4K byte offset 
Adjust PAR value 



; Move 256. words 

; Check with actual word count 

i Br if word count > 256. 

; Otherwise use actual word count 



5*: 



10«: 
20*: 



Initialize the PAR registers and perform the move. 



Adjust the number 
Set PAR5 value 
Set PAR6 value 
Adjust word count 
Divide for double 
Br if single word 



sue 


RO, R5 


MOV 


Rl, @#KPAR5 


MOV ' 


R3, @#KPAR6 


INC 


RO 


ASR 


RO 


BCC 


20* 


MOV 


(R2)+, <R4)+ 


MOV 


(R2)+, <R4) I- 


SOB 


RO, 10* 


TST 


R5 


BHI 


1* 


MOV 


<SP)+, @#KPAR6 


MOV 


<SP)+, ©#KPAR5 


MOV 


(SP)+, RO 


RETURN 





of words moved 



for double move 
word move 
move necessary 



Move input buffer to output buffer 

J Continue until all has been moved 

; Check for remaining words 

j Br if more to move 

; Restore PAR 5 & 6 mapping 

i Restore registers 
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BLKMV "- Memory block move routine 

58 

59 00000 i . END 

Errors detected; 

«** Assembler statistics 

Work file reads: 

Work file writes: 

Size of work file: 9624 Words < 38 Paqes) 

Size of core pool: 17920 Words i 70 Pages) 

Operating system: RT-ll 

Elapsed time: 00:01:07.53 

DK: TSEMT, LP: TSEMT=^DK: TSEMT. MAC/C/N: SYM 



TSEMT 


T./S EMT 


PROCESSOR 


MACRO 


V05. 04 


Friday 18- 


-Dec -87 07: 


56 Page S- 


1. 




Cross reference 


table <CR£P 


V05. 04 ) 














liDEAD 


1-86 


8-3 3 
















$QEMAR 


1-82 


6~2V 


6--47 














*.TNKMN 


1-98 


1-J08 


28-44 














*MLOCK 


1-84 


9-26 


9™ 54 


9-60 


10-26 










fNDMEM 


1-SS 


9-32 


10-24 


10-31 












UNLOCK 


1-84 


9-34 
















... VI 


8-38 


8-38 
















. . . V2 


S-3S 


8-38 


S-38# 


S-38# 












ABORT 


1-116 


4-69 


19-21 














ABTIO 


1-69 


29-46# 
















ARSFIN 


5-31 


5-49 


5-56 


6-10 


6-60# 










BADAD 


28-96 


28-100 


2S-105*f 














BADEMT 


1-75 


6-74# 
















BASMAP 


1-84 


9-20 


9-36 


10-21 












BELL 


2~7# 


2-32 
















BLKMV 


1-75 


44-14# 
















BOTCSR 


1-111 


8-41 
















B or UN I 


1-111 


8-40 
















C. CSW 


1 - 1 23 


i6~36« 


16-60 


22-26 


22-30 


29-51 


29-53 


30- 


-58* 


C. DEVQ 


1-125 


22-28 
















C. LENG 


1-126 


















C. NUMQ 


1-124 


11-27JJ 


16-41* 


29-12 












C. SBLK 


1-126 


22-27 
















C. USED 


1-83 


16-37 


16-38 


16-40* 












CANIOT 


1-73 


29-73 


32-8# 














CFLAG 


1-97 


4-41 


7-30 


1 9-26 












CHKABT 


1-118 


9-53 


20-23 


29-16 












CHNADR 


1-109 


29-10 


29-50 














CHNNUH 


1-104 


18-22 
















CKUSP2 


1-91 


4-66 
















CLWTIH 


1-67 


2-J5# 
















CORUSR 


1-110 


4-49 


6-28 


8-27 


18-20 


18-29 


27-27 


28- 


-40 


CP*RT 


1-90 


16-74 
















CP*STD 


1-86 


16-71 


1 7-66 


18-28 












CQ$CP 


1-86 


16-71 -if 


16-74* 


17-50 


17-50 


17-64 


17-66* 


18- 


-28* 


CQ*FLG 


1-92 


16-70* 


16-72 


31-32* 


32-18 










CQ*HOT 


1-93 


31-33* 
















CQ$JOB 


1-88 


16-61* 


17-13 


18-20* 


31-43* 


32-20 








CQ*LNK 


1-87 

32-16 


17-46 

32-27 


17-48 
32-27* 


17-58* 


17-59* 


31-43* 


31-58 


31- 


-59 


CQ$LOT 


1-93 


31-34* 
















CQ*PA5 


1-87 


16-69* 


17-26 


18-27* 


31-39* 


32-31 








CQ*PRI 


1-130 


16-68* 


17-56 


17-56 


17-71 


18-30* 








CQ*RO 


1-88 


1-93 


16-60* 


17-19 


18-21* 


31-36* 








CQ$R1 


1-88 


1-93 


16-59* 


17-20 


18-22* 


31-37* 


31-38* 


32- 


-29 


CQ$RNS 


1-132 


16-65* 


16-67* 


17-53 


17-53 


17-77 


17-79* 


17- 


-83 


CQ*RTN 


1-87 


17-27 


18-26* 


31-35* 












CR 


2-5# 


2-32 


2-32 














CS*EOF 


1-99 


16-35 
















CS*ERR 


1-99 


1 6-35 


30-58 


30-97 












CS*OPN 


1-99 


29-51 
















CSHALC 


1-90 


12-33 
















CSHIO 


1-96 


12-35 
















CUPARO 


1-136 


43-40 
















CUREMT 


1-83 


4-48* 
















CVTPHY 


1-67 


42-15# 

















i 

i 



30-97* 



29-28 



31-61 31-66 31-66* 32-14 



18-31* 18-34* 
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CXTBAS 


1-117 


11-23 


11-26 


16-30 


16-33 


27-22 




CXTEND 


1-105 


28-46 












DIEARG 


1-44 


7~10<- 












DIEMSG 


1-44 


7~.tOiJ 


22-59^^ 










DOEMT 


1-83 


6-60 












DOPLAS 


6-56 


6~64# 












DOSCHD 


1-07 


17~S7» 












DS*ABT 


1-94 


30-48 












DVFLAG 


1-112 


12-31 


12-40 


23-29 








DVSTAT 


1-119 


30-48 












DVSTOP 


29-55 


29-79 


30-14.# 










DX*DMA 


1-112 


23-29 












DX*MAP 


1-117 


12-40 












DX^NCA 


1-96 


12-31 












E375MX 


1-91 


6-8 












EM*NQE 


1-135 


22-59 












EH*SOF 


1-104 


7-10 












EMT375 


4-75 


6-15 


6-20*f 










EMT376 


1-91 


6-16 












EMTABT 


19~20# 














EMTADR 


1-116 


4-16 


4-17-K- 


4-44 


4-46* 


4-68 


7-69* 


EMTASP 


1-109 


4-18 


4-19<f 


4-20* 


5-38 


5-48* 


7-61* 


EMTBLK 


1-96 


4-73 


5-19 


6-52 


6-55 


8-29 


18-23 


EMTCXN 


1-121 


7-46 












EMTCXT 


1-119 


4-31 












EMTCXW 


1-119 


4-32 


7-47 










EMTENT 


1-71 


4-14# 












EMTERR 


1-122 


4-42K- 


7""23«- 


7-28 


1 9-9* 






EMTLEV 


1-86 


4~29«- 


7-44ir 










EHTMAP 


1-104 


4-36)^ 


7-39 


1 8-27 








EMTPLS 


1-82 


6-66 












EMTPS 


l-US 
28-31 


4-14 


4-1 5K- 


4-4 1# 


4-50 


4-64 


5-32 


EMTRAD 


1-109 


7-76 


7--79 


7-81* 








EMTSP 


1-104 


4-351^ 


5-47K- 


7-43 








EMTXIT 


1-73 


7-8# 


9-56 


9-61 


19-27 


29-58 


33-27 


ENQTL 


1-129 


17-86 












ENSYS 


1-120 


13-59 


30-27 


34-19 


35-19 






ERRLOC 


1-97 


7-27 


7-31 # 










ERRLOG 


1-74 


32-51 # 












ERR OK 


19-10 


19-16 


19-254f 










EXCJOB 


1-140 


8-27 » 












EXTPl 


1-75 


41-14# 












FAKCMP 


1-75 


18-10# 












FILSPC 


1-76 


2~12# 


8-33« 


8-34* 


8-36 


8-37 




FMMSO 


1-70 


2-32# 












FORKQ 


1-95 


14-71 












FP* I OA 


1-103 


30-28 












FP*IOF 


1-103 


14-66 












FP* I OS 


1-103 


13-60 












FP$MOV 


1-103 


34-20 


35-20 










F«*PR 1 


1-95 


14-66K- 












FO«R 1 


1-95 


14-68K- 












FQ*R3 


1-95 


14~69i^ 












FQ«R5 


1-95 


14-70tt 












FQ*RTN 


1-95 


14-67* 













19-20 

33-7 33-18 



7-15 7-30* 7-65 7-70* 19-26* 
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FREIOQ 


1-119 


20-30 


20-31* 


21-11 


21-13* 


22-49 


22-51* 


















FREUMR 


1-67 


16-18 


24-14=!] 


























FRKGET 


1-95 


14-65 




























FRKPRI 


1-129 


14-58 




























GlibSTK 


3-20# 


5-20 




























GETQ 


1-69 


18-15 


20~10# 


20-24 
























GETRTQ 


1-75 


22-18 


22-48# 


31-30 
























GETSYQ 


1-70 


22-13# 




























GETUCH 


1-70 


25-12# 




























GETUMR 


1-67 


1 2-47 


23-25# 


24-57 
























GTBYT 


1-74 


39-12# 




























HANENT 


1-119 


1 3-27 


30-21 


30-36 


33-14 






















HAN I DC 


1-83 


1 3-20* 


14-51* 


30-99* 
























HANPAR 


1-120 


1 3-24 


30-33 


33-15 
























HANS I Z 


1-105 


33-8 




























HANXIT 


1-77 


36-6# 




























INTERR 


1-108 


4-43 » 


7-21 


7-23 


19-25* 






















INTPRI 


1-89 


13-45 


13-53 


14-29 


14-46 


17-60 


20-32 


21- 


-14 


22- 


-53 


23-69 


23-76 


24- 


-46 




24-54 


29-18 


29-38 


31-50 


31-63 


31-69 


32-28 


32- 


-41 


33- 


-26 


33-31 


38-44 


39- 


-48 




40-44 


43-42 




























lOABFL 


1-101 


29-46 


29-66 


























IDCMPL 


1-97 


1 2-26 


15-19 


16-13# 


30-98 






















lOFCPL 


14-60 


14-67 


15-14*1 


























I OF IN 


1-71 


14-n# 


30-109 


























lOHALT 


1-73 


29-66# 




























lOHANQ 


1-67 


12-52 


13-10# 


24-59 
























lOQSIZ 


1-96 


20-54 




























lOSTOP 


1-68 


29-27# 


29-47 


29-67 
























lOSTRT 


1-68 


11-38 


12-1 5« 


























lOTIMC 


31-20 


31-55# 




























lOTIMR 


1-71 


31~10# 




























lOTMCC 


31-51 


31-71# 




























lOTMXT 


31-29 


31-65 


31-75« 


























lOWAIT 


1-72 


29-9# 




























IT* JOB 


1-93 


31-40 




























IT*LNK 


1-130 


31-31# 


31-55 


31-68* 
























IT*RTN 


1-131 


31-25 


31-35 


31-38 


31-67* 






















IT*SEQ 


1-97 


31-36 




























JSTKND 


1-104 


7-S 




























JSWLOC 


1-120 


4-53 




























KPAR5 


1-94 


4-36 


7-39* 


9-15* 


10-13 


10-17* 


10-40* 


11- 


-12 


11- 


-17 


11-25* 


11-42* 


13- 


-15 




13-26-s- 


13-70* 


16-16 


16-32* 


16-86* 


17-25 


17-26* 


17- 


-28* 


27- 


-39 


30-17 


30-35* 


30- 


■118* 




31-39 


32-10 


32-31* 


32-42* 


33-17* 


34-26* 


35-26* 


36- 


-10* 


44- 


-16 


44-44# 


44-55» 






KPAR6 


1-94 


20-40 


34-27* 


35-27* 


38-36 


38-38* 


38-43* 


39- 


-39 


39- 


-41* 


39-47* 


40-36 


40- 


-38« 




40-43-K- 


41-15 


41-39* 


41-53* 


43-34 


43-36* 


43-41* 


44- 


-17 


44- 


-45* 


44-54* 








LBASE 


1-127 


9-19 


9-37 


27-28 
























LCMPL 


1-87 


17-46 




























LCXPAR 


1-136 


43-36 




























LEMTPC 


1-133 


4-52* 




























LF 


2~6# 


2-32 


2-32 


2-32 
























LIOCNT 


1-89 


11-31* 


11-32* 


16-26* 


29-30 






















LITIME 


1-110 


16-63 


18-32 


























LvJSW 


1-104 


4-54* 




























LMXNUM 


1-134 


8-15 




























LOMAP 


1-84 


9-21 


9-35 


























LPRI 


1-89 


1-97 


16-68 


17-72 


17-74* 


18-30 





















TSEMT 
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PROCESSOR 


MACRO 


V05. 04 


Friday 18- 


-Dec -87 07: 


56 Page S- 


-4 














Cross re-Ference 


table (CREF 


V05. 04) 
























LSTATE 


1-122 


16-47 


17-84 
























C LSTPL 


1-128 


8-12 


























LSW 


1-85 


9-32* 


10-24 


10-31* 






















LSWll 


1-82 


6-29* 


6-47* 
























C LSW3 


1-101 


a- 13 


























LSW4 


1-98 


1-.U)5 


28-44 
























LSW6 


1-103 


9-26 


9-34* 


9-54 


9-60* 


10-26 


















( MAPPAR 


1-84 


9-15 


10-17 
























MEMSWP 


1-91 


9-33* 


10-32* 
























MI*CWC 


1-106 


34-34 


35-34 
























( MI$SBP 


1-106 


34-27 


35-27 
























MI*UBO 


1-106 


34-29 


35-29 
























MI*UBP 


1-106 


34-26 


35-26 
























< MIOCHK 


1-117 


12-42 


























MIOMRD 


1-77 


35~10# 


























MIOMWT 


1-77 


34-i0# 


























i MPPHY 


1-74 


37-24# 


























MRKTHD 


1-94 


31-48 


31-49* 


31-58 


32-14 




















MXCSR 


1-135 


8-21* 


























i MXDTR 


1-135 


8-20* 


























NMFREQ 


1-89 


20-14 


20-29* 


21-15* 


22-52* 




















NUMDEV 


1-90 


29-77 


























i ODTBAS 


1-91 




























OVRHC 


1-140 


1 2-42 


























PO*LOK 


1-91 


9-6 


























< PRINT 


1-139 


4-60 


























PRIVCO 


1-86 


1-98 


9-6 
























PS 


1~22# 


7-17* 


8-6* 


8-39* 


13-36* 


13-45* 


13-53* 


14- 


-26* 


14-29* 


14-46* 


17-44» 


17- 


-60* 




20-10# 


20-32* 


21-10* 


21-14* 


22-48* 


22-53* 


23-50* 


23- 


-69* 


23-76* 


24-35* 


24-46* 


24- 


-54* 




29-11* 


29-18* 


29-29* 


29-38* 


31-47* 


31-50* 


31-57* 


31- 


-63* 


31-69* 


32-15* 


32-28* 


32- 


-41* 




33-19* 


33-26* 


33-31* 


38-35* 


38-44* 


39-38* 


39-48* 


40- 


-35* 


40-44* 


43-33* 


43-42* 






1 PTBYT 


1-74 


3S-13# 


























PTWRD 


1-74 


40-1 3# 


























PUTUCH 


1-70 


26-12# 


























i 0. BLKN 


1-124 
38-17 


13-32 
38-52 


13-43* 
39-20 


14-31 
39-56 


22-27* 
40-17 


30-52 
40-52 


30-56 
43-20 


30- 


-81 


30-83 


30-89 


30-89* 


30- 


-94 


Q. BUFF 


1-126 
40-17 


22-29* 
40-30* 


23-85 
40-38 


27-55* 
40-52 


38-17 


38-30* 


38-38 


38- 


-52 


39-20 


39-33* 


39-4 i 


39- 


-56 


Q. CHAN 


1-125 


16-59 


























Q. COMP 


1-125 


16-53 


























( 0. CSW 


1-126 


22-25* 


30-56 


30-95 






















Q. DEVX 


1-107 


1 1 -32 


12-20 


13-19 


14-50 


22-32* 


24-56 
















Q. FLAG 


1-92 


16-70 


























i Q. FUNC 


1-124 


16-19 


























Q. ICSW 


1-96 


16-34 


1 6-37 


22-24 






















Q. JOB 


1-124 


11-28 


16-23 


30-52 


30-83 


43-20 


















i Q. LINK 


1-124 
24-44 


13-31* 
24-53 


13-43* 
24-53* 


14-32 
30-81 


20-31 
30-89 


21-12* 
30-89* 


22-51 


23- 


-62 


23-63 


23-67* 


23-68* 


24- 


-36 


Q. PAS 


1-126 


11-12* 


16-69 
























1 Q. PA6 


1-127 


11-25 


16-32 


20-40* 






















Q, PAR 


1-126 


23-87 


27-54* 


37-42 


37-53 


38-30* 


38-38 


39- 


■33* 


39-41 


40-30* 


40-38 






Q. UCSW 


1-96 


11-21 


16-22 


22-22* 






















i Q. UMPB 


1-U4 


23-86* 


37-41 
























Q. UMPP 


1-115 


23-88 !;■ 


37-43 
























Q. UMRX 


1-113 


23-25 


23-77* 


24-14 


24 -27 


24-29* 


37-34 
















i Q. UMVB 


1-114 


23->99* 


37-46 
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Q. UNIT 


1-125 


22-28iJ 








i Q. WCNT 


1-123 


16-21 


23-43 


24-38 


37-34 


QCOMPL 


1-75 


16-75 


17-8# 


18-39 




QF*CIO 


1-90 


16-72 








C QF$IOT 


1-77 


31-32 


32-18 






QF*MIO 


1-90 


16-72 








QF*SCR 


1-93 


31-32 








< QFREE 


1-71 


16-82 


17-38 


18-49 


21~9# 


QHIPRI 


1-89 


16-49 


21-25 






QIO 


1-70 


11-16# 








( QIOFIN 


12-27 


12-36 


12-43 


12-48 


12-56# 


QNSPND 


1-118 


9-52 


20-22 


29-15 


29-33 


QSRCH 


1-118 


21-23 








i QWTCNT 


2-14# 


20-20 «■ 


21-20 


21-27« 




READ 


1-78 


1-137 








REBOOT 


1-76 


S-6# 








< RELOC 


1-78 


42-22 


43-1 5# 






RPDR 


1-102 


28-54 








RSR 


1-134 


8-1 7 -J^ 








i RTllEX 


1-91 


6-38 


6-52 






RTLOCK 


1-72 


1-74 


9-6# 






S$HICP 


1-110 


16-65 


1 8-34 






i S*IOFN 


1-130 


16-67 


18-31 






S*IOWT 


1-122 


16-47 


29-14 


29-32 




S«NEDQ 


1-119 


20-21 


21-22 






< S*RT 


1-103 


1 7-77 


1 7-79 






S*WFM 


1-85 


9-51 








SA*LOK 


1~S5 


9-46 








i SCPGET 


1-85 


9-44 








SERFLG 


1-100 


19-15 








SETC 


1-69 


19-26# 








1 SETERR 


1-73 


6-69 


6-75 


9-9 


18-51 


SETHAN 


1-71 


33-7# 








SP$CMD 


1-85 


9-46^5• 








1 SP*JOB 


1-85 


9-4 5+J 








SPFLDV 


1-76 


2-2 1# 








SPFLNH 


1-76 


2-22# 


8-38 






< SPLERR 


1-70 


2-33# 








SPSIZE 


1-76 


2~23# 


16-21* 






SROMMR 


1-140 


8-33 


8-36«- 


8-54* 




i SR3MMR 


1-140 


8-34 


8-37+^ 


8-55*- 




SSEMT 


1-83 


6-54 








SWPFRC 


1-72 


9-39 


10-1 1# 






i SYBFAD 


1-68 


27-17# 








SYQIO 


1-68 


11-12# 








SYSDAT 


1-92 


8-59 








* SYSHLT 


1-44 


7-10 


22-59 






SYSXIT 


1-88 


7-85 








SYTIMH 


1-92 


8-60 








( SYTIML 


1-92 


8-61 








TSEMT 


1~21# 


1-68 








TSINIT 


1-83 


8-46 


8-65 






i TSR 


1 - 1 34 


8~18«- 








TTYIW 


1-138 


4-63 








TTYOUT 


1-138 


4-57 








i UACHKB 


1-69 


28-18 


28-2 5# 


28-99 
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Cross reference table (CREF V05. O^i ) 

UACHKW 1-69 1B-2A 28-17# 28-95 

UBUSMP 1-112 23-27 

UHIMEM 1-121 6-22 28-25 

UIOCNT 1-127 11-33*^ 16-27* 

UM**SZ 1-113 23-55 

UM*IOQ 1-112 23-51 23-75«- 24-28* 

UM*NMR 1-114 23-101 

UM*UMR 1-114 23-09 23-98 

UM$WDS 1-113 23-53 24-34 

UMODE 1-122 4-50 4-64 5-32 7-15 28-31 

UMRADR 1-114 23-100 

UMRBAS 1-U2 23-49 

UMREND 1-113 23-56 

UMRWHD 1-113 23-62 24-36 

UPMODE 1-110 7-17 7-80 

URO 1-118 4-37* 6-68* 7-35 

USREMT 1-76 2-1 1# 8-38 

VI EMT 5-5# 

VISTK 3-5# 5-30 

V2EMT 4-77 6-4# 

VALADB 1-98 28-99# 

VALADW 1-98 6-24 2S-95# 

VCSHNB 1-140 8-28* 

VPAR5 1-140 11-26 16-33 27-34 34-28 35-28 

VPAR6 1-90 22-29 23-93 27-50 34-30 35-30 37-52 42-28 43-50 

VPLAS 1-82 6-64 

VPRIHI 1-103 17-75 

VSWPFL t-84 9-10 

WRITE 1-78 1-137 

ZCLR 1-135 8-21 

ZEROQ 20-36 20-52# 22-54 



